Hallo nochmal,
nach etwas Granufink im Tee hat sich die procedure geklärt. Hier der funktionierende Quellcode für die Funktion, damit andere mit dem gleichen Problem Abhilfe finden :-)
Delphi-Quellcode:
procedure tdlnode.Grab(node: TTreeNode);
var
TmpNode : TTreeNode;
begin
If Node <> Nil then
TmpNode:=Node.getFirstChild;
While (TmpNode<>Nil) do
begin
showmessage(tmpnode.Text);
grab(TmpNode);
TmpNode:=Node.getNextChild(TmpNode);
end;
end;
Anmerkung: Der Parameter "node" ist der Startpunkt.
Danke nochmal für den Hinweis!