TreeView möglichst schnell durchlaufen

[ibp]

Hallo,

Ich habe ein TreeView welches Informationen in Objekten gespeichert hat. Nun kommt es vor, dass in einigen Ebenen 100..1000 und manchmal mehr Knoten vorhanden sind. Wenn ich nun die Infos aus der Ebene haben will, dann dauert mir das unter Umständen zu langsam.
Wie kann man also möglichst schnell durch eine Ebene laufen?

Bisher habe ich das so realisiert...(schematisch)

Delphi-Quellcode:

parent_node:ttreenode;
...
for idx:=0 to parent_node.count-1 do
begin
  list.add(tmyobject(parent_node.intem[idx].data).keystring);
end;
...
oder
...
parent_node,wnode:ttreenode;
...
wnode:=parent_node.getFirstChild;
while wnode<>nil do
begin
  list.add(tmyobject(parent_node.intem[idx].data).keystring);
  wnode.getNextSibling;
end;
...

aber beides ist nicht wirklich schnell, gibt es noch andere möglichkeiten schneller an die objekte zu kommen?

danke schon mal

grüße