var
I, J: Integer;
ListItem: TListItem;
begin
for I := 0 to ListView1.Items.Count - 1 do
begin
ListItem := ListView1.Items.Item[I];
ShowMessage(ListItem.Caption);
for J := 0 to ListItem.SubItems.Count - 1 do
begin
ShowMessage(ListItem.SubItems[J]);
end;
end;
end;