Extraer informacion de ListView

[giantonti1801]

Hola Amigo gracias por su ayuda. Ahora estoy buscando la forma de extraer la información desde el ListView y con la opción que me dio Neftaly me trae la información perfecta en el evento onClickItem pero cuando le hago un swip y me sale el botón Delete no me está trayendo la información por lo que no puedo aplicar filtro.

Código Delphi [-]
Str:String;
  begin
   // recorrer los diferentes Objetos del Item
    for var I:integer := 0 to (AItem.Objects.Count-1) do
    // Si son de tipo Texto los Añado
    if (AItem.Objects[i] is TListItemText) then
    Str := TListItemText(AItem.Objects[i]).Text;
    Label21.Text := (Str);

Con esta opcion en el evento onclickItem funciona perfecto pero no me lo hace en el Swip o cuando le doy al botón delete.