Detectar item seleccionados en ListView

[Neftali [Germán.Estévez]]

PuedeS pRobar a acceder con la propiedad CheckedIndexes de los Items.
Algo así:

Código Delphi [-]
procedure TForm2.ListView1Click(Sender: TObject);
var
  str:String;
  lItems:TArray;
  i:integer;
begin
  lItems := ListView1.Items.CheckedIndexes();
  Str := '';
  for I := 0 to Length(lItems) - 1 do begin
    Str := Str + '  ' + IntToStr(lItems[i]);
  end;
  Caption := Str;

  ListBox1.Clear;
  for I := 0 to Length(lItems) - 1 do begin
    ListBox1.Items.Add(ListView1.Items.Item[lItems[i]].Text);
  end;
end;