[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;