Hola.
Este es el código que utilizo yo, a ver si te sirve :
Código:
procedure TForm1.CargarImagen;
var Jpeg:TJpegImage;
Corriente:TMemoryStream;
begin
imgFoto.Picture := nil;
if cdsTablaIMAGEN.BlobSize > 0 then begin
Jpeg:=TJpegImage.create;
Corriente:=TMemoryStream.create;
try
cdsDatosTabla.SaveToStream(Corriente);
Corriente.Seek(0,soFromBeginning);
Jpeg.LoadFromStream(Corriente);
imgFoto.Picture.Assign(Jpeg);
finally
Jpeg.Free;
Corriente.Free;
end;
end;
end;
Como puedes ver hay un posicionamiento al inicio del Stream (mediante un Seek)
Pruébalo a ver.
Saludos.