добавление в StringGrid Delphi

[mishel7916]

Добавление ведется из модальной формы2 в стринггрид формы1, вроде код нормальный проверял по подобным задачам в литературе но прога не делает то что требуется...
подскажите где ошибка...

procedure TForm1.Add1Click(Sender: TObject);
begin
if Form2.ShowModal=mrOK then
begin
  StringGrid1.RowCount:=StringGrid1.RowCount+1;
  StringGrid1.Cells[0,StringGrid1.Row]:=Form2.Edit1.text;
  Form1.StringGrid1.Cells[1,StringGrid1.RowCount-1]:=
  ComboBox1.Items.Strings[ComboBox1.ItemIndex];
  Form1.StringGrid1.Cells[2,StringGrid1.RowCount-1]:=
  ComboBox1.Items.Strings[ComboBox1.ItemIndex];
  Form1.StringGrid1.Cells[3,StringGrid1.RowCount-1]:=
  ComboBox1.Items.Strings[ComboBox1.ItemIndex];
  Form1.StringGrid1.Cells[4,StringGrid1.RowCount-1]:=
  ComboBox1.Items.Strings[ComboBox1.ItemIndex];
end;

[Hacker19_90]

Ну если я не ошибаюсь, то если вторую форму вызвать через ShowModal то выполнение кода первой формы стопорится! Попробуй вызвать её просто через Show

[vovk]

..

procedure TForm1.Add1Click(Sender: TObject);
begin
Form2.ShowModal;
if Form2.modalresult=mrOK then
begin
  StringGrid1.RowCount:=StringGrid1.RowCount+1;
  StringGrid1.Cells[0,StringGrid1.Row]:=Form2.Edit1.text;
  Form1.StringGrid1.Cells[1,StringGrid1.RowCount-1]:=
  ComboBox1.Items.Strings[ComboBox1.ItemIndex];
  Form1.StringGrid1.Cells[2,StringGrid1.RowCount-1]:=
  ComboBox1.Items.Strings[ComboBox1.ItemIndex];
  Form1.StringGrid1.Cells[3,StringGrid1.RowCount-1]:=
  ComboBox1.Items.Strings[ComboBox1.ItemIndex];
  Form1.StringGrid1.Cells[4,StringGrid1.RowCount-1]:=
  ComboBox1.Items.Strings[ComboBox1.ItemIndex];
end;

может так?