Zahlen hochzählen

[Overclocker]

Hallo,
versuch schon vergeblich, folgenden quellcode perfekt zu machen:

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
var Wert:string;
i:integer;
x:integer;
begin
Wert := FloattoStr (4);
i:=3;
x:=i+1;
if stringgrid1.cells[x,3]=Wert then
if stringgrid1.cells[x,3]=Wert
then stringgrid1.cells[3,3]:='0';
end;

Der Code soll folgendes machen: Er soll in Zelle 4,3 anfangen und dann die anweisung ausführen,also wenn 4,3=Wert(also 4)ist, dann soll er schauen ob 5,3 auch gleich Wert(also 4)ist und dann soll in der zelle 3,3 der Wert 0 reingeschrieben werden.

aber irgendwie find ich nichts wie ich das automatisch weiterzählen lassen kann, dachte mit i+1 geht das, aber bin noch delpehi einsteiger

thx für die hilfe