Oberste Elemente in Treeview finden?

[Muetze1]

Moin!

Wieso nicht einfach alle Knoten durchrennen sondern nur alle Toplevel-Knoten?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  lNode : TTreeNode;
begin
  lNode := TreeView1.Items.GetFirstNode;

  While Assigned(lNode) Do
  Begin
    ShowMessage(lNode.Text);
    lNode := lNode.getNextSibling;
  End;
end;

MfG
Muetze1