Grundsätzlich: Wenn du bei Oberflächenelementen mit mehren Listeneinträgen arbeitest, dann nutze BeginUpdate und EndUpdate um das neuzeichnen nach dem Hinzufügen
eines Eintrages zu unterbinden innerhalb der Schleife.
Delphi-Quellcode:
treeview.items.clear;
treeview.items.BeginUpdate;
try
// deine schleife hier...
finally
treeview.items.EndUpdate;
end;