Código Delphi [-]
procedure TForminicio.Button1Click(Sender: TObject);
var
vItemList : TListViewItem;
StreamIMG : TStream;
begin
UniQueryVisita.Close;
UniQueryVisita.Open;
while not UniQueryVisita.Eof do
 begin
   vItemList := lvClientes.items.Add;
   StreamIMG := TMemoryStream.Create;
   if UniQueryVisitafoto.IsNull then
      IMG_Vendor.bitmap.saveToStream(streamIMG)
      else
      UniQueryVisitafoto.saveToStream(streamIMG);
      vItemList.bitmap := Circle1.MakeScreenshot;
//      vItemList.text := UniQueryVisitaNom_Vis.AsString;
//      vItemList.
//    vItemList.Text  := UniQueryVisitaRut__Vis.AsString;
      UniQueryVisita.Next;
      end;
end;

Código Delphi [-]
procedure TForminicio.ClienteAddListView(Cliente_Id: integer;
                                         Cliente_Nombre, 
                     Cliente_Email: string;
                                         Cliente_Foto: TBitmap);
var
    item: TListViewItem;
begin
    item := lvClientes.Items.Add;
    item.Height := 90;
    item.Tag    := Cliente_Id;

    {!PRECAUCION!}
    {Los nombre de los objetos del Item son sencibles a minusculas y mayusculas: 'txtCliente_Nombre', 'txtCliente_Email'...}

    TListItemText(item.Objects.FindDrawable('txtCliente_Nombre')).Text := Cliente_Nombre;
    TListItemText(item.Objects.FindDrawable('txtCliente_Email')).Text := Cliente_Email;
  
    if Cliente_Foto <> nil then
       TListItemImage(item.Objects.FindDrawable('imgCliente_Foto')).Bitmap := Cliente_Foto;
end;

procedure TFrmPrincipal.ClientesListar;
var
    Cliente_foto: TBitmap;
    foto_stream: TStream;
begin
    lvClientes.BeginUpdate;
    lvClientes.Items.Clear;

    with UniQueryVisita do
    begin
        Active := false;
        SQL.Clear;
        SQL.Add('select * from Clientes order by Cliente_id');
        Active := true;

        while NOT eof do
        begin
             Cliente_Foto := nil;
       
       if not FieldByName('Cliente_Foto').IsNull then
             begin
                foto_stream := CreateBlobStream(FieldByName('Cliente_Foto'), TBlobStreamMode.bmRead);
        
                Cliente_Foto:= TBitmap.Create;
                Cliente_Foto.LoadFromStream(foto_stream);

                foto_stream.DisposeOf;
            end;

            ClienteAddListView(FieldByName('Cliente_id').AsInteger,
                               FieldByName('Cliente_Nombre').AsString,
                               FieldByName('Cliente_email').AsString,
                               Cliente_Foto);

            Next;
        end;
    end;

    lvClientes.EndUpdate;
end;

Código Delphi [-]
procedure TForminicio.ClienteAddListView(Cliente_Id: integer;
                                         Cliente_Nombre, 
                     Cliente_Email: string;
                                         Cliente_Foto: TBitmap);
var
    item: TListViewItem;
begin
    item := lvClientes.Items.Add;
    item.Height := 90;
    item.Tag    := Cliente_Id;

    {!PRECAUCION!}
    {Los nombre de los objetos del Item son sencibles a minusculas y mayusculas: 'txtCliente_Nombre', 'txtCliente_Email'...}

    TListItemText(item.Objects.FindDrawable('txtCliente_Nombre')).Text := Cliente_Nombre;
    TListItemText(item.Objects.FindDrawable('txtCliente_Email')).Text := Cliente_Email;
  
    if Cliente_Foto <> nil then
       TListItemImage(item.Objects.FindDrawable('imgCliente_Foto')).Bitmap := Cliente_Foto;
end;

procedure TFrmPrincipal.ClientesListar;
var
    Cliente_foto: TBitmap;
    foto_stream: TStream;
begin
    lvClientes.BeginUpdate;
    lvClientes.Items.Clear;

    with UniQueryVisita do
    begin
        Active := false;
        SQL.Clear;
        SQL.Add('select * from Clientes order by Cliente_id');
        Active := true;

        while NOT eof do
        begin
             Cliente_Foto := nil;
       
       if not FieldByName('Cliente_Foto').IsNull then
             begin
                foto_stream := CreateBlobStream(FieldByName('Cliente_Foto'), TBlobStreamMode.bmRead);
        
                Cliente_Foto:= TBitmap.Create;
                Cliente_Foto.LoadFromStream(foto_stream);

                foto_stream.DisposeOf;
            end;

            ClienteAddListView(FieldByName('Cliente_id').AsInteger,
                               FieldByName('Cliente_Nombre').AsString,
                               FieldByName('Cliente_email').AsString,
                               Cliente_Foto);

            Next;
        end;
    end;

    lvClientes.EndUpdate;
end;

Código Delphi [-]
procedure TForminicio.ClientesListar;
var
    Cliente_foto: TBitmap;
    foto_stream: TStream;
begin
    lvClientes.BeginUpdate;
    lvClientes.Items.Clear;

    with UniQueryVisita do
    begin
        Active := false;
        SQL.Clear;
        SQL.Add('select * from Visitas');
        Active := true;

        while NOT eof do
        begin
             Cliente_Foto := nil;

       if not FieldByName('Foto').IsNull then
             begin
                foto_stream := CreateBlobStream(FieldByName('Foto'), TBlobStreamMode.bmRead);

                Cliente_Foto:= TBitmap.Create;
                Cliente_Foto.LoadFromStream(foto_stream);

                foto_stream.DisposeOf;
            end;

            ClienteAddListView(FieldByName('Cliente_RUT').AsString,
                               FieldByName('Cliente_Nombre').AsString,
                               FieldByName('Cliente_email').AsString,
                               FieldByName('Cliente_Apellido').AsString,
                               FieldByName('Aceptacion_visita').AsString,
                               FieldByName('Cliente_comentario').AsString,
                               Cliente_Foto);

            Next;
        end;
    end;

    lvClientes.EndUpdate;
end;

Código Delphi [-]
procedure TForminicio.ClienteAddListView(Cliente_RUT, Cliente_Nombre,
  Cliente_Apellido, Cliente_comentario, Aceptacion_visita,
  Cliente_Email: string; Cliente_Foto: TBitmap);
var
    item: TListViewItem;
begin
    item := lvClientes.Items.Add;
    item.Height := 90;
    //item.Tag    := Cliente_RUT;

    {!PRECAUCION!}
    {Los nombre de los objetos del Item son sencibles a minusculas y mayusculas: 'txtCliente_Nombre', 'txtCliente_Email'...}

    TListItemText(item.Objects.FindDrawable('Nom_Visita_txt')).Text := Cliente_Nombre;
    TListItemText(item.Objects.FindDrawable('ACT_visita_txt')).Text := Cliente_Apellido;
    TListItemText(item.Objects.FindDrawable('txtNome')).Text := Cliente_RUT;
    TListItemText(item.Objects.FindDrawable('txtEmail')).Text := Aceptacion_visita;
    TListItemText(item.Objects.FindDrawable('txtEndereco')).Text := Cliente_comentario;

    if Cliente_Foto <> nil then
       TListItemImage(item.Objects.FindDrawable('imgVendedor')).Bitmap := Cliente_Foto;
end;