Extraer informacion de ListView

[cloayza]

Estimado colega, si me permite insistir con la opción que le indique, creo se evita algunas líneas de codigo...

Código Delphi [-]
      while not UniQueryVisitantes.Eof  do
      begin
          item2 := ListView2.Items.Add;
         ...
  //Asignas el valor del Rut al TagString del Item
  //Este valor lo recuperas luego.
    
        item2.TagString:=UniQueryVisitantesRut__vis.AsString;
    
  ...
          UniQueryVisitantes.Next;
      end;

procedure TForminicio.ListView1ItemClick(const Sender: TObject;
  const AItem: TListViewItem);
var
  item: TListViewItem;
  streamIMG : TStream;
  Str:String;
  begin
      UniQueryDetalleVisita.Close;
      UniQueryDetalleVisita.SQL.Clear;
      UniQueryDetalleVisita.SQL.text := 'select V.Rut__vis, V.Num_dep_Vis, V.Nom_Vis, V.Piso__Vis, V.Acept_Vis, V.Hora_in_vis, V.act_vis, V.cometario,  I.FOTO  from visitas V'+
                                       ' Inner Join IMG I on V.N_reg = I.REGISTRO where Rut__Vis = :Rut__Vis';// and Num_dep_Vis = :Num_dep_Vis order by Hora_in_vis ';
      UniQueryDetalleVisita.ParamByName ('Rut__Vis').Asstring := AItem.TagString;

Bueno, solo es una sugerencia...
Saludos cordiales