[Angel.Matilla]

Empezado por emailx45

Prueba esto:

Lo he podido resolver de una forma más simple:

TMemoryStream *msImagen = new TMemoryStream;
static_cast<TGraphicField *>(Query->FieldByName("Caratula"))->SaveToStream(msImagen);
if (msImagen->Size > 0)
{
     ImgInf          = new TQRImage(fCaratula->QRBand1);
     ImgInf->Parent  = fCaratula->QRBand1;
     ImgInf->Left    = 10;
     ImgInf->Top     = nTop;
     ImgInf->Height  = ShpInf->Height;
     ImgInf->Width   = 0.688 * ShpInf->Height;
     ImgInf->Stretch = true;

     try
     {
          tbmp->Assign(Query->FieldByName("Caratula"));
     }
     catch (...)
     {
          tbmp->Assign(::BLOBtoJPG((TBlobField *)Query->FieldByName("Caratula")));
     }
     ImgInf->Picture->Assign(tbmp);
}