procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
Caption:='';
For i:= 0 to ListView1.Items.Count-1 do
begin
if ListView1.Items[i].Checked then
Caption:=Caption+ListView1.Items[i].Caption+',';
end;
end;
--------------------------------------------------------------------------------------------------------------------
var i: Integer;
begin
For i:= 0 to ListView1.Items.Count-1 do
begin
if ListView1.Items[i].Checked then
showmessage(ListView1.Items[i].Caption);
end;
end;