Schleife zum Zuweisen von Strings funktioniert nicht

[Geser]

Hallo ich bin noch ein echter Anfänger in der Programmierung und brauche bei einem problem eure Hilfe!
ich programmiere grade Schiffeversenken ( mein erstes größeres Projekt)
und wollte nur eine prozedur schreiben die in einem StringGrid allen Feldern einen Leerstring zuweist.
ich wollte mir die mühe sparen, das jedem feld einzeln zu tun und hab es mit einer Schleife versucht:

Delphi-Quellcode:

procedure TForm1.replacebtnClick(Sender: TObject);

var
x, y, i :integer;

begin
i := 1;
x := 1;
y := 1;
StringGridSeaComp1.Cells [x,y] := '';

Repeat
i := i+1 ;
x := x+1 ;
y := y+1 ;
StringGridSeaComp1.Cells [x,y] := '';

Until i = 9  ;

end;

das hat aber nicht geklappt !
warum nicht?
ich hoffe ihr könnt mir das erklären,
danke im voraus

[edit=Christian Seehase]Delphi-Tag geschlossen. Mfg, Christian Seehase[/edit]