Ну вообще вызов модальной формы в DrawCell не очень хорошая идея. Лучше перенести ее в StringGridDblClick либо в StringGridClick (не совсем удобно выделить ячейку или строку).
Код:
procedure TForm2.StringGridDblClick(Sender: TObject);
begin
Application.CreateForm(TForm4, Form4);
Form4.Edit1.Text:=StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];//На Form4 есть Edit1, ему и передаем значение ячейки
Form4.ShowModal;
StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row]:=Form4.Edit1.Text;//Новый текст в ячейку
Form4.Free;//Убиваем форму
end;
Если попроще, то примерно так.