zeilen im stringgrid überschrieben??

[mcfit]

ne also ich hab das jetzt so gemacht:

Delphi-Quellcode:

begin
i:=i+1;
par.Pizzaname:=label3.caption;
par.Preis:=StrToFloat(label4.caption);

kk[ii]:=par;
form6.stringgrid1.Cells[1,i]:=par.Pizzaname;
form6.stringgrid1.cells[2,i]:=FloatToStr(par.Preis);
form6.StringGrid1.Enabled:=true;
end;

so wird ja name und preis ins stringgrid geschrieben.
dann hab ich ein button mit dem die zeilen gelöscht werden

Delphi-Quellcode:

for i:= 1 to StringGrid1.RowCount -1 do
StringGrid1.Rows[i].Clear;
StringGrid1.RowCount:=2;
StringGrid1.Rows[StringGrid1.RowCount-1].Clear;

und dann noch um die zeilen wieder herzustellen

Delphi-Quellcode:

Stringgrid1.RowCount:= 9;
Stringgrid1.Rows[Stringgrid1.RowCount+1].Clear;

wenn ich jetzt aber wieder den ersten button drücke wird der inhalt unter den gelöschten zeilen geschrieben. Also meinetwegen erste und zweite zeile sind beschrieben und nach dem "löschen" und erneutem drücken des ersten button wird der inhalt in zeile drei geschriben anstatt in zeile 1.