Baum aufklappen geht mit
treeview.FullExpand;
eventuell auch
TreeView.AutoExpand := True;
Bei jedem neuen Objekt durchläufst Du den ganzen Baum, das erhöht mit wachsendem Baum automatisch die Laufzeit, weil ja die zu durchlaufende Menge ständig wächst und neue Zweige "irgendwo" in den Baum eingefügt werden müssen.
'ne andere Suchmöglichkeit für den TreeView ist mir allerdings nicht bekannt
Kannst Du Dir eventuell hieraus etwas schnelleres bauen?
http://delphi.about.com/od/vclusing/l/aa010703a.htm