StringGrid ID erstellen

[strom]

hallo,

möchte im Grid automatisch eine id erstellen!
leider wird immer nur eine 1 gesetzt!

Delphi-Quellcode:

var
i, zaehler : integer;
begin
 StringGrid1.RowCount := StringGrid1.RowCount + 1;
    for i := StringGrid1.RowCount - 0 downto StringGrid1.FixedRows + 1 do
    begin
     StringGrid1.Rows [i].Assign (StringGrid1.Rows [i - 1]);
     StringGrid1.Rows [StringGrid1.FixedRows].Clear;
     StringGrid1.Cells [1, StringGrid1.FixedRows] := IntToStr(Zaehler +1); // diese Zeile meine ich!
     StringGrid1.Cells [2, StringGrid1.FixedRows] := FormatDateTime ('dd:mm:yyyy', Now);
     StringGrid1.Cells [3, StringGrid1.FixedRows] := FormatDateTime ('hh:nn:ss', Now);
     StringGrid1.Cells [4, StringGrid1.FixedRows] := ('Log * '+ Edit6.Text +' * User ID * '+ Edit3.Text);
 end;
end;