Nur so am Rande bemerkt: Wenn man Application.ProcessMessages zu oft aufruft, kann das die Verarbeitung extrem verlangsamen.
Ein ex-Kollege von mir (Hi Daniel) hat das mal in eine TimedProcessMessages Funktion gekapselt, die sich merkt, wie lange der letzte Application.ProcessMessages Aufruf her ist und nur dann, wenn er mehr als n Millisekunden (200?) her ist, diese Methode wirklich aufruft. Die Umstellung auf diese Aufrufe hat bei einigen Programmen die Verarbeitung enorm beschleunigt (Faktor 5 bis 10).
Über eine ähnliche Vorgehensweise, und warum man das machen oder nicht machen sollte, habe ich mal geblogt in "
Calling Application.ProcessMessages in a Delphi program"
(2018? Unglaublich, dass das schon wieder so lange her ist.)