Vor allem wenn es darum geht, nur den Status zu aktualisieren reicht das völlig aus.
Ganz davon zu schweigen davon, das 100 Timer mit einem Interval von 1 ein ganz schönes Chaos anrichten können.
Delphi-Quellcode:
for i := 1 to 12345 do
begin
// ...
Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1)
Application.ProcessMessages;
end;
PS: Wenn die Schleife sehr schnell durchläuft, sollte man eventuell den Aufruf der beiden Zeilen einsschränken, z.B. etwa so:
If (i mod 10) = 0 then