[Дикарь]

В прграмме после нажатия кнопки из трех Edit тексты должна добавляться в StringGrid строка с 3 ячеками и в каждую ячеку копируется текст из Edit.
но у меня получается что копируется с опозданием
например если сначала ввести в пустые Edit`ы по единице и нажать на кнопку то добавится строка с пустыми ячейками
если после этого в Edit`ы ввести двойки и нажать кнопку то добавится строка с единицами и тд.
вот код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TForm1.AddButtonClick(Sender: TObject); var n:integer; begin  if Edit1.text='' then  else   if edit2.text='' then   else    if Edit3.text=''then Application.MessageBox('Âñå ïîëÿ äîëæíû áûòü çàïîëåíåíû','Âíèìàíèå!',MB_OK)    else   n:=Stringgrid1.rowCount+1;   stringGrid1.rowCount:=n;   with StringGrid1 do    begin    cells[0,n]:=Edit1.text;    cells[1,n]:=Edit2.text;    cells[2,n]:=Edit3.text;      end; end;

Что здесь не так?