Label in Schleife zeichnen lassen

[Gruber_Hans_12345]

nein, ich zeichne nur alle 20ms sowas

Delphi-Quellcode:

if (fLastRepaint = 0) or (fRepaintEvery = 0) or (GetTickCount > fLastRepaint+fRepaintEvery) then begin
  fLastRepaint            := GetTickCount;
  Label1.Paint;
end;

aber ich will eben keine ProcessMessages, sondenr nur das .paint