[roman]

Salvo por una línea casi te sale igual al de la VCL

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

// Saludos