[Angel.Matilla]

Gracias por vuestras respuestas. Me han dado la solución en otro foro.

//Añadir cabeceras:  #include <memory>  #include <jpeg.hpp> 
std::auto_ptr<TMemoryStream> stream(new TMemoryStream); 
TBlobField* blob = static_cast<TBlobField*>(Query->FieldByName("Imagen")); 
blob->SaveToStream(stream.get()); 
stream->Position = 0; 
DWORD* tipo = static_cast<DWORD*>(stream->Memory); 
if (tipo && *tipo == 0xE0FFD8FF)
{ 
     std::auto_ptr<TJPEGImage> jpeg(new TJPEGImage); 
     jpeg->LoadFromStream(stream.get()); 
     Imagen->Picture->Assign(jpeg.get()); 
}
else
     Imagen->Picture->Assign(blob);