Добавление в ListView

[xakkkkker]

Добрый день Уважаемые программисты, я вот эту неделю конекретно туплю что не могу даже написать маленький код. Вот есть ListView и 6 столбцов. Как мне заполнить все столбцы а то я никак не догоняю эту тему.

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 with SP_list do
 begin
  Items.Add.Caption:=IntToStr(Number);
  Items.Add.SubItems.Add('Пример');
 end;
 Number:=Number+1;
end;

Она заполняет только первые 2 столбца а мне надо всю строку заполнить.

[Anfall]

with ListView1.Add do
     begin
       Caption:='1';
       subItems.Add('2');
       subItems.Add('3');
       subItems.Add('4');
       subItems.Add('5');
       subItems.Add('6');
     end;

[ProgDel]

Могу только дать пищу для размышления - свойство items -для обращения к конкретному объекту по номеру, cout - текущее число элементов в списке.
Есть ещё тут

function IndexOf(item: Pointer)

- номер всписке элемента, на который ссылаеться указатель Item. Нумерация начинаеться с нуля. Вот теперь сиди и думай!

[xakkkkker]

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 with SP_list.Items.Add do
 begin
  Caption:=IntToStr(Number);
  SubItems.Add('Наименование товара');
  SubItems.Add('Единица измерения');
  SubItems.Add('Количество');
  SubItems.Add('Цена');
 end;
 Number:=Number+1;
end;

Вот этот код работает как мне надо