TreeView durchlaufen

[DieDolly]

Ich stehe gerade wieder auf dem Schlauch und komme nicht weiter.
Wie durchlaufe ich ein TTreeView? Aber nur das erste Level?

Mein TTreeView hat pro Knoten 2 Unterknoten. Ich möchte den Hauptknoten bekommen und dadurch an die Daten Unterknoten kommen.
Die Daten liegen einfach so im TTreeView mit AddChild.

[bcvs]

Ich benutze den TTreeview schon länger nicht mehr. Aber ging das nicht mit

Delphi-Quellcode:

Node:=TreeView.Items.GetFirstNode;
While Node<>nil do begin
  ...
  Node:=Node.GetNextSibling;
end;