ListView добовление данных в указанную колонку указанного item

[Человек_Борща]

Всем доброго времени суток!

Проблема:
Есть ListView у него 8 колонок.

Появилась необходимость заполнять третью колонку.

и втизде приходится писать примерно так:

var
i:smallInt;
begin
    for i:=0 to ListView.Items.count -1 do
    begin
       ListVitew.items[i].Caption:='Something...'; //первая
       ListVitew.items[i].subitems.add(''); //запоняем вторую колнонку
       ListVitew.items[i].subitems.add(''); //запоняем третью колнонку
       ListVitew.items[i].subitems.add(''); //запоняем четвёртую колнонку
       ListVitew.items[i].subitems.add(''); //запоняем пятую колнонку
       ListVitew.items[i].subitems.add(''); //запоняем шестую колнонку
       ListVitew.items[i].subitems.add(''); //запоняем седьмую колнонку
       ListVitew.items[i].subitems.add('Наконец-то добрались до того что надо'); //запоняем восьмую колнонку
    end;
end;

Нельзя ли как-то избежать вот такого рода заполнения?

[maxionans]

попробуй напрямую через ListView_SetItem

[Человек_Борща]

Не нахожу такой функции/процедуры...

Можно, пожалуйста, чуть подробнее о применении ListView_SetItem ?

[maxionans]

в uses добавляем CommCtrl и дальше:

var
  Item : LV_ITEM;
begin
  FillChar( Item, SizeOf( Item ), 0 );
  Item.iSubItem := 4;
  Item.iItem := 0;
  Item.mask := LVIF_TEXT;
  Item.pszText := 'yahoo';
  Item.cchTextMax := 6;

  ListView_SetItem(  ListView1.Handle, Item );
end;