var
lp, i: integer;
begin
for lp := 0 to ListView1.Items.Count - 1 do
if ListView1.Items[lp].Selected then
begin
ShowMessage(ListView1.Items[lp].Caption);
for i := 0 to ListView1.Items[lp].SubItems.Count - 1 do
ShowMessage(ListView1.Items[lp].SubItems[i])
end;
end;