[Максон]

Здравствуйте.
Столкнулся с такой проблемой. На форме 3 edit-a, 1 Combobox, 1stringGrid, 1button.
Суть вопроса: При каждом нажатии на кнопку данные из edit,combobox отображались в Stringgrid и добавлялась новая строка.
Увы, у меня так не получается.
Подскажите, пожалуйста

Код:

procedure TForm2.addbtnClick(Sender: TObject);
var
  i:Integer;
begin
  strngrd1.RowCount:=0;
  strngrd1.RowCount:=strngrd1.RowCount+1; //Добавление строки
 for i:=1 to (strngrd1.RowCount+1) do
  begin
    if strngrd1.Cells[0,i]='' then
    begin
       strngrd1.Cells[1,i]:=edt1.Text;
       strngrd1.Cells[2,i]:=edt2.Text;
       strngrd1.Cells[3,i]:=edt3.Text;
	strngrd1.Cells[4,i]:=cbb1.Text;
       Exit;

      end;
      end;
end;

end.