Developing.ru

        with  ListView1 do
        begin
            Items.BeginUpdate;
            Items.Clear;
                ListItem := Items.Add;
                ListItem.Caption := 'foo';
                ListItem.SubItems.Add('bar');

                ListItem := Items.Add;
                ListItem.Caption := 'foo2';
                ListItem.SubItems.Add('bar2');
            Items.EndUpdate;
        end; 

А в справку слабо посмотреть? :)

[code]
with ListView1 do
begin
Items.BeginUpdate;
Items.Clear;
ListItem := Items.Add;
ListItem.Caption := 'foo';
ListItem.SubItems.Add('bar');

ListItem := Items.Add;
ListItem.Caption := 'foo2';
ListItem.SubItems.Add('bar2');
Items.EndUpdate;
end;

[/code]

:?: Народ не подскажите как дабавить новый Item и SubItem.
Заранее благодарен.
:lol: