Para ello yo utilizo un TImage normal, no el de base de datos y actualizo su contenido mendiante código:
Código:
procedure TfrPeliculas.aCargarCaratulaExecute(Sender: TObject);
var
Jpeg:TJpegImage;
Corriente:TMemoryStream;
begin
If Not dmPeliculas.tbPeliculasCaratula.IsNull Then Begin
Jpeg:=TJpegImage.create;
Corriente:=TMemoryStream.create;
try
dmPeliculas.tbPeliculasCaratula.SaveToStream(Corriente);
Corriente.Seek(0,soFromBeginning);
Jpeg.LoadFromStream(Corriente);
Image1.Picture.Assign(Jpeg);
finally
Corriente.Free;
Jpeg.Free;
end;
End;
end;