компонент StringGrid

[андрей56789]

Приветствую Вас, помогите с проблемкой. Мне нужно вставить текст допустим Edit2 в несколько ячеек по горизонтали в зависимости от поля Edit1, если Edit1= 3 ,то 3 ячейки подряд должны быть заполнены текстом Edit2 при нажатии Button
вот как я сделал, помогите кто сможет!!!
procedure TForm1.Button2Click(Sender: TObject);
var
Acol,Arow:integer;
begin
q:=StrToInt(Edit8.Text)-1; //ЭТО И ЕСТЬ Edit1

if (Edit6.Text = '') then
begin
Edit6.SetFocus;
ShowMessage('Введите данные');
Exit;//процедуру обработки нажатия кнопки нужно прервать
end;
if ((m_icol <> ACol) OR (m_irow <> ARow)) THEN
begin //До этого кликали другую ячейку
ACol := m_icol;
ARow := m_irow ;
Panel1.Visible:=true; //Отобразить форму с вводом нужной информации в edit1

StringGrid1.Cells[(c+q),r]:= ComboBox1.Text+' '+ Edit6.Text+' '+Edit7.Text
+' на '+Edit8.Text+' сут.' ; //После нажатия OK формы //присваиваем введенное значение в form2.Edit1 текущей ячейки StringGrid.
Panel1.Visible:=false;

end;
end;

[evg_m]

было для одной ячейки

 StringGrid1.Cells[(c+q),r]:=  .....

то 3 ячейки подряд должны быть заполнены текстом ....

for j:=0 to 3-1 do begin // можно было бы просто to 2 но 3-1 использовано для наглядности
  StringGrid1.Cells[(c+q),r  +j ]:=  .....
end;

[андрей56789]

Спасибо огромное Очень помогло, добавил SpinEdit
for j:=0 to SpinEdit2.Value-1 do begin // можно было бы просто to 2 но 3-1 использовано для наглядности
StringGrid1.Cells[ c+j , r ]:= ComboBox1.Text+' '+ Edit6.Text+' '+Edit7.Text
+' на '+Edit8.Text+' сут.' ;

end;