[*Caro*]

Hola de nuevo, tendría que ser algo así mas o menos:

Código Delphi [-]
procedure TForm1.Nivel(Nodo: TTreeNode; var NivelMax: Integer);
var
  NodoAux: TTreeNode;
  i: Integer;
begin
  for i := 0 to Nodo.Count - 1 do
  begin
    NodoAux := Nodo.Item[i];
    if NodoAux.Level>NivelMax then
     NivelMax := NodoAux.Level;
 
    Nivel(NodoAux, NivelMax);
  end;
end;
............................
 
  NivelMax : Integer;
begin
  NivelMax := -1;
  Nivel(TreeView.Selected, NivelMax);
  showmessage(IntToStr(NivelMax-TreeView.Selected.Level+1));

Si no es eso, explica un poco mas.

Saluditos