Detectar item seleccionados en ListView

[juank1971]

Saludos si a mí me paso lo mismo, es un hueco en los tutoriales y los videos que he visto casi todos solamente muestran la forma de crear los TlistView y TListBox pero en casi ninguno está la forma de acceder a la información mostrada, yo me pase casi una semana buscando en todas partes incluso la misma ayuda del Delphi y realmente pase trabajo para encontrar eso.

La forma que también me gusto que vi de Daniele Teti, para acceder a los resultados de los ítems en el TlistView por el nombre fue esta:

Código Delphi [-]
procedure TForm1.ListView1ItemClick(const Sender: TObject;
    const AItem: TListViewItem);
    var Test:string;
  begin
    Test := AItem.Objects.FindDrawable('ItemDePrueba').Data.asstring;
    ShowMessage(Test);
  end;

ItemDePrueba es un item que agrege al Tlistview
también creo que se puede asignar valores a esa propiedad data, no es solo para leer