Du brauchst den Tree nicht meiner for-Schleife absuchen, schon garnicht mit GetNext. Das ist recht Fehleranfällig. Dafür stellt die Klasse Methoden bereit.
Delphi-Quellcode:
var
t: PVirtualNode;
begin
...
if Node.ChildCount > 0 then
begin
t := Node.FirstChild;
while Assigned (T) do
begin
UpdateUebersicht(t);
t := Tree.GetNextSibling (T);
end;
end;
end;