[Дикарь]

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

Код:

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;

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

[zip000]

Код:

var
n:integer;
begin
 if Edit1.text='' then
 else
  if edit2.text='' then
  else
   if Edit3.text=''then Application.MessageBox('Ana iiey aie?iu auou caiieaiaiu','Aieiaiea!',MB_OK)
   else
  n:=Stringgrid1.rowCount;
  stringGrid1.rowCount:=n+1;
  with StringGrid1 do
   begin
   cells[0,n]:=Edit1.text;
   cells[1,n]:=Edit2.text;
   cells[2,n]:=Edit3.text;
     end;
end;

[Дикарь]

спасибо
все заработало