StringGrid Zeile hinzufügen

[lucy]

bekomme es einfach nicht hin?
es werden immer zwei neue Zeilen erzeugt... bzw. eine überschrieben

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
 var
i: integer;
begin
 StringGrid1.RowCount := StringGrid1.RowCount +1;
    for i := StringGrid1.RowCount - 2 downto StringGrid1.FixedRows + 1 do
    begin
     StringGrid1.Rows [i].Assign (StringGrid1.Rows [i -1]);
     StringGrid1.Cells [1, StringGrid1.FixedRows] := FormatDateTime ('dd:mm:yyyy', Now);
     StringGrid1.Cells [2, StringGrid1.FixedRows] := FormatDateTime ('hh:nn:ss', Now);
     StringGrid1.Cells [3, StringGrid1.FixedRows] := ('Log');
 end;
end;