[*Caro*]

Holas de nuevo,

Estuve probando el codigo que me pusiste Roman, pero me sale un error

Incompatible types TTreeNode and TWinControl

Código Delphi [-]
function TForm1.GetLevel: Integer;
var
  Node: TTreeNode;
begin
  Result := 0;
  Node := Parent;     //Aqui marca el error
  while Node <> nil do
  begin
    Inc(Result);
    Node := Node.Parent;
  end;
end;