procedure TForm1.Button1Click(Sender: TObject);
var
  NewItem : TListItem;
  i       : integer;
begin
  for i :=  0 to  10  do  begin
    NewItem            :=  ListView1.Items.Add;
    NewItem.Caption    :=  'Borland';
    NewItem.ImageIndex :=  0;
    NewItem.SubItems.Add('Delphi');
    NewItem.SubItemImages[0] :=  1;
    NewItem.SubItems.Add('C++Builder');
    NewItem.SubItemImages[1] :=  2;
    NewItem.SubItems.Add('JBuilder');
    NewItem.SubItemImages[2] :=  3;
  end;
end;