procedure TForm1.Button1Click(Sender: TObject);
 var
  i: integer;
 begin
  with Listview1 do
  // MultiSelect := True;
  // ViewStyle := vsReport;
  for i := 0 to Items.Count - 1 do
  if Items[i].Selected then
  Items[i].Caption := Items[i].Caption + ' - Selected!';
 end;