[NumLock]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.RowCount:=1;
  StringGrid1.ColCount:=4;
  StringGrid1.FixedRows:=0;
  StringGrid1.FixedCols:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if StringGrid1.Cells[0, 0]<>'' then StringGrid1.RowCount:=StringGrid1.RowCount+1;
  StringGrid1.Cells[0, StringGrid1.RowCount-1]:=Edit1.Text;
  StringGrid1.Cells[1, StringGrid1.RowCount-1]:=Edit2.Text;
  StringGrid1.Cells[2, StringGrid1.RowCount-1]:=Edit3.Text;
  StringGrid1.Cells[3, StringGrid1.RowCount-1]:=ComboBox1.Text;
end;