ListView. Автоматически создать столбецы и записать в них по 10 строк

[Shouldercannon]

В ListView записывается 47 строк. В каждый столбец допускается добавить только 10 строк. Требуется автоматически создавать новые столбы в том же ListView и заносить в них по 10 строк, пока не будут занесены все 47 строк. Общее количество строк может быть любое. Как такое сделать?

[ArtGrek]

вот,выводит по введеному в едит1 количеству цифр и введеному в едит2 количеству строк

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  a, b, c: integer;
begin
  a := StrToInt(Edit1.Text); // количество чисел
  b := StrToInt(Edit2.Text); // количество строк
  if a mod b > 0 then c := a div b + 1
    else c := a div b;
  for i := 1 to c do
    ListView1.Columns.Add.Caption := IntToStr(i);
  for i := 1 to b do
    ListView1.Items.Add.Caption := IntToStr(i);
  for i := b + 1 to a do
    ListView1.Items.Item[(i - 1) mod b].SubItems.Add(IntToStr(i));
end;