StrinGrid, random String, Vokabel Abfrage

[dde]

hab das problem mit dem löschen mit ner schleife gelöst naja hier der code:

Delphi-Quellcode:

procedure TForm1.NeuButtonClick(Sender: TObject);
var 
  x:integer;
begin
  x:=-1;
  repeat
  begin
    inc(x);
    StringGrid1.Cells[0,StringGrid1.RowCount-x]:='';
    StringGrid1.Cells[1,StringGrid1.RowCount-x]:='';
  end;
  until StringGrid1.Cells[0,0]='';
end;

[edit=Daniel B]Delphi-Tags eingefügt und Code formatiert. MfG Daniel B.[/edit]