Проблема автоматического заполнения StringGrid

[Victoriya1]

пишу код

k:=0;
for i:=0 to 15 do
for j:=0 to 15 do
if odd(j) then
 begin
Form2.stringgrid1.cells[0,j]:=Form1.Edit1.Text;
Form2.stringgrid1.cells[1,j]:=Form1.Edit2.Text;
Form2.stringgrid1.cells[2,j]:=Form1.Edit3.Text;
Form2.stringgrid1.cells[3,j]:=Form1.Edit4.Text;
Form2.stringgrid1.cells[4,j]:=Form1.Edit5.Text;
Form2.stringgrid1.cells[5,j]:=Form1.Edit6.Text;
Form2.stringgrid1.cells[6,j]:=Form1.Edit7.Text;

всё работает,но заполняет через строчку,как сделать,чтобы заполняло в каждой строке разными данными

[phomm]

Через строчку - потому что есть строка с кодом if odd(j) then если её убрать целиком, будет заполнять во всех строках грида.
Но непонятно, какие такие разные данные нужны ?
Озвучьте задачу (именно текст задания, а не Ваши соображения).
А ещё логика в принципе странная - сам грид позволяет вносить данные ручками в свои ячейки, зачем нужны эдиты ?