procedure TForm1.Button1Click(Sender: TObject);
begin
stringgrid1.Cells[0,stringgrid1.RowCount-1] := edit1.Text;
stringgrid1.Cells[1,stringgrid1.RowCount-1] := edit2.Text;
stringgrid1.RowCount := stringgrid1.RowCount + 1;
end;