Ich würde allerdings empfehlen, Application.ProcessMessages nicht bei jedem Schleifendurchlauf auszuführen (es sei denn, der Block umfasst 30 Anweisungen und mehr), da sonst die Performance des Programmes
drastisch sinkt.
Delphi-Quellcode:
... (if i mod 10) = 0 //nur bei jedem zehnten Schleifendurchlauf
then Application.ProcessMessages ...