Hallo,
1 bis 1.000.000 zählt.
Willst Du jetzt 1.000.000 neu zeichnen.
Macht für mich keinen Sinn.
Besser z.B. in bestimmten Zeitpunkten (hier alle 1000)
Delphi-Quellcode:
if (i mod 1000)=0 then
begin
Label.Caption:= 'bla';
Application.ProcessMessages;
end;