Listbox и StringGrid

[alexeybest]

Здравствуйте. У меня вопрос по Listbox. У меня в нем список.
Мне нужно передать его в Stringgrid.
Но по правилу, что по 8 строк из Listbox копировать в строки Грида.
Берем первые 8 строк из списка,добавляем в 1 строку Грида (8 столбцов у него), затем следующие 8 строк во 2 строку
из Listbox в гРИд и т.д.

For i:=0 to Listbox4.ItemIndex-1 do begin
Stringgrid1.Cells[i,1]:=listbox4.Items[i];// Но это для первых 8ми из Listbox и 1 строка в ГРиде
end;

Ничего не могу придумать по этому поводу. Буду признателен за помощь.

[Скандербег]

  Col := 0; Line := 0; //ineger
  for i := 0 to Listbox1.Items.Count-1 do begin
    if i mod 8 = 0 then begin
      Inc(Line);
      Col := 0;
    end;
    Stringgrid1.Cells[Col, Line] := listbox1.Items[i];
    Inc(Col);
  end;

[eoln]

Так короче

  for i := 0 to Listbox1.Items.Count-1 do
    Stringgrid1.Cells[i mod 8, i div 8] := listbox1.Items[i];

[alexeybest]

Сообщение от Скандербег

  Col := 0; Line := 0; //ineger
  for i := 0 to Listbox1.Items.Count-1 do begin
    if i mod 8 = 0 then begin
      Inc(Line);
      Col := 0;
    end;
    Stringgrid1.Cells[Col, Line] := listbox1.Items[i];
    Inc(Col);
  end;

Спасибо огромное!