Leider kann ich keine Testanwendung bereitstellen, da dies eine sehr umfangreiche Anwendung ist.
Ich hatte es so verstanden dass es - innerhalb der Anwendung - schon mit diesem Code auffallend lange Verarbeitungszeiten von mehreren Sekunden bei 50 Einträgen gibt:
Delphi-Quellcode:
with FontBox do
begin
Items.BeginUpdate;
if meineForm <> nil then
begin
Items.AddStrings(meineForm.lstTTFonts);
end;
Items.EndUpdate;
end; //with
Um das Problem einzukreisen würde ich - falls die Kunden einverstanden sind - eine minimale Anwendung die praktisch nur obigen Code enthält auf ihrem Systen testen.