procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin Grid1.AppendRow; i := Grid1.RowCount - 1; Grid1.Cells[0,i] := 'A' + inttostr(i); Grid1.Cells[1,i] := 'B' + inttostr(i); end;