Delphi-Quellcode:
procedure TForm2.Timer1Timer(Sender: TObject);
//var i:integer;
begin
//i:=0;
//repeat
label1.Caption:=inttostr(i)+' ';
label1.Refresh;
//inc(i);
//sleep(1000);
//until (i>100);
Lass das sleep und die Schleife mal aus dem Code raus und stelle das Interval so ein wie Du es brauchst.
Grüße
Klaus