[emailx45]

Prueba esto:

Código Delphi [-]
// Vcl.Imaging.jpeg / Vcl.Imaging.pngimage

TMemoryStream *msImagen = new TMemoryStream();
try
{
    TBlobField *blobField = dynamic_cast(Query->FieldByName("Caratula"));
    if (blobField && !blobField->IsNull)
    {
        blobField->SaveToStream(msImagen);
        msImagen->Position = 0;
        
        if (msImagen->Size > 0)
        {
            //La imagen se identifica automáticamente como Bitmap, JPEG o PNG.
            ImgInf->Picture->LoadFromStream(msImagen);
        }
    }
}
__finally
{
    delete msImagen;
}