Заполнить StringGrid (1 ячейка = 1 переменная)

[DenProx]

Доброго времени суток. Помогите пожалуйста с задачкой:

На форме лежат StringGrid (1 фиксированная строка + 1 пустая, 3 столбца), 3 Edit'a и Кнопка.

По нажатию кнопки в Грид нужно записать содержимое Едитов (соответственно к каждой ячейке свой Эдит).

При следующем нажатии, необходимо добавить строку, и записать новые значения из Эдитов, и так далее ...

Как это можно реализовать ?

[misher]

В качестве примера:

i:integer; (глобально)

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.Cells[1,i]:=Edit1.Text;
i:=i+1;
Edit1.Text:='';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
end;

[DenProx]

блин) оказывается я сам еще вчера решил эту задачку, только перепутал ColCount и RowCount )

Вот так работает, почти так как мне нужно )

var x,y : integer;
begin
 y := RzStringGrid1.RowCount -1;
 x:=0;
 RzStringGrid1.Cells[x,y]:= IntToStr(RzStringGrid1.RowCount -1);
 inc(x);
 RzStringGrid1.Cells[x,y] := Edit1.Text;
 inc(x);
 RzStringGrid1.Cells[x,y] := Edit2.Text;
RzStringGrid1.RowCount := RzStringGrid1.RowCount + 1;
y:=0;