[BoRoV]

Код:

var // глобальная
  i: integer;

Код:

proc Form1.ButtonClick()
begin
  for i := 1 to n do
  begin
    Form2.Edit1.Text := '';
    // и также для остальных эдитов
    i := n;
    Form2.ShowModal;
  end;
end;

Код:

proc Form2.ButtonClick()
begin
  // математика
  Form1.StringGrid[1, i] := значение
  // также для остальных ячеек
  Close;
end;

Как-то так...