Das kann nicht funktionieren.
Die FOR Schleife wird einmal durchlaufen und verläßt dann Button1Click, da i eine lokale Variable ist kann i nicht 300 beim betreten sein, weil sie nicht initialisiert wurde.
Delphi-Quellcode:
i:=0;
While TRUE do begin // So sollte man das nicht machen, nur als Beispiel
Inc(i, 1);
If i>=300 then i:=0;
end;
PS:
Sieh' mal da rein