procedure TForm1.OnButton1Click(sender:TObject);
var
i:integer;
begin
for i:=0 to listview1.items.count-1 do
begin
showmessage(listview1.items[i].caption);
end;end;
var
i:integer;
begin
for i:=0 to listview1.items.count-1 do
begin
showmessage(listview1.items[i].caption);
end;end;
showmessage(listview1.items[i].subitem[0].text)