StringGrid reihenweise füllen ?

[RX3]

Hallo, ich habe folgendes Problem:

Ich versuche ein StringGrid reihenweise zu füllen, was ich mit 2 for-SChleifen realisieren möchte.
Klappt auch soweit ganz gut. ABER:
Wenn ich meinen Button klicke, wird die erste Zeile wunderbar gefüllt so wie es sein soll, aber beim nächsten Klick auf den Button kommt keine zweite Zeile.
Nun dachte ich in der For-SChleife wird ja nur die erste Anweisung ausgeführt wenn ich kein begin .. end da stehen habe, aber sobald ich begin .. end einsetze krieg ich folgenden Fehler:
[Fehler] Unithaupt.pas(102): Anweisung für FOR-Schleifenvariablen 'iRow'

So sieht mein Code bisher aus, is eigentlich ne Recht einfache Geschichte aber irgendwie bin ich doch mal wieder zu dumm dafür

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var iCol,iRow : Integer;
    vPLanAnzahl : Integer;
begin
  Listbox1.Items.Add(EditName.Text + chr(vk_tab) + EditAlly.Text + chr(vk_Tab) + EditPlaneten.Text);
  vPlanAnzahl := StrToInt(EditPlaneten.Text);
  StringGrid1.ColCount := vPlanAnzahl + 1;
  StringGrid1.Cells[0,0] := 'Name';

  for iCol := 1 to StringGrid1.ColCount do
  StringGrid1.Cells[iCol,0] := 'Planet '+ IntToStr(iCol);
  inc(iCol);

  for iRow := 1 to StringGrid1.RowCount - 1 do
    for iCol:= 0 to StringGrid1.ColCount - 1 do
      StringGrid1.Cells[0,iRow] := EditName.Text + ' | ' + EditAlly.Text;
      inc(iRow);
//      StringGrid1.Row := StringGrid1.Row +1;
    StringGrid1.Cells[iCol,iRow]:= Edit5.Text;

end;