StringGrid reihenweise füllen ?

[RX3]

GUten Morgen zusammen,

1. Vielen Dank für Eure Hilfe!
2. @marabu, ich bin kein Profi und und habe nur sehr wenige Grundkenntnisse, hab zwar auch mit "with StringGrid1 do" probiert aber nich hingekriegt, deshalb danke erstmal für deine Lösung

3. Mein eigentliches Problem ist aber immernoch nicht gelöst!
Die erste Zeile wird (wie marabu richtigerweise sagte) immer mit den Spaltenüberschriften gefüllt, die zweite Zeile füllt sich dann mit dem Text der Editfelder, wenn ich die Editfelder jetz aber andere Namen eintrage und wieder den Button klicke, dann wird zwar eine weitere dritte Zeile unten angefügt mit den entsprechenden neuen Daten aus den Editfeldern, aber die komplette zweite Zeile erhält ebenfalls dieselben Werte wie Zeile 3...

Der aktuelle Code sieht nun so aus:

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;

// Spaltenüberschriften eintragen
  with StringGrid1 do
    for iCol := 0 to ColCount - 1 do
      if iCol = 0
        then Cells[iCol, 0] := 'Name'
        else Cells[iCol, 0] := 'Planet '+ IntToStr(iCol);

  for iRow := 1 to StringGrid1.RowCount - 1 do
  begin
    StringGrid1.Cells[0,iRow] := EditName.Text + ' | ' + EditAlly.Text;
    for iCol:= 1 to StringGrid1.ColCount - 1 do
      StringGrid1.Cells[iCol,iRow]:= Edit5.Text;
  end;
  StringGrid1.RowCount := StringGrid1.RowCount + 1;
end;