TTreeView vom Child auf Root schliessen

[wtf123]

Hallo,

ich habe ein TTreeView und einige einträge darin, beim clicken aufs
Child würde ich gerne wissen welches Root dazu gehört

var
nodes: array[0..maxnodes] of TTreeNode;
i:integer;

for i:=0 to maxnodes do begin
nodes[i] := Add(nil, 'Test'+inttostr(i));
nodes[i].ImageIndex := Random(9);
AddChild(nodes[i],'ChildNode'+inttostr(i));
end;


Danke