Zählschleife ???

[Vader]

hab was probiert:

Code:

var 
  Count: Integer; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  Label1.Caption := IntToStr(Inc(Count)); 
end;

aber alles geht so schnell und läuft nicht unendlich.


mfg Vader