hier meine Lösung, kommt ohne zusätzliche Variable aus...
Delphi-Quellcode:
procedure GetSubNodes(const Node:TTreeNode);
begin
if assigned(Node) then
begin
ShowMessage(Node.Text);
GetSubNodes(Node.getFirstChild,Check); // recurse next level, first child
GetSubNodes(Node.getNextSibling,Check); // recurse actual level, next node
end;
end;