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;
...
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'; UniQueryDetalleVisita.ParamByName ('Rut__Vis').Asstring := AItem.TagString;
Bueno, solo es una sugerencia...
Saludos cordiales