Fórum raised exception class EJPEG error 53 #561847

Ambiente: BD Firebird 2
SO Windows 8.1
Versão Delphi Xe
******************************************************** Boa Noite,
Estou tentando mostrar o conteúdo de um campo Blob que tem uma foto JPEG armazenada mas ao executar o comando

Jpeg.LoadFromStream(stream);

ele me da o seguinte erro.

raised exception class 'EJPEG error #53'

alguém tem ideia do que pode estar ocorrendo:

Segue abaixo o Código que estou utilizando:

**************************************************************************************************************************
procedure TForm3.IBTable1AfterScroll(DataSet: TDataSet);
var
Jpeg : TJPEGImage;
Stream : TMemoryStream;
begin
{ Cria objeto do tipo TJPEG, e objeto do tipo MemoryStream}
Jpeg := TJPEGImage.Create;
Stream := TMemoryStream.Create;

{ Trata o campo como do tipo BLOB e salva o seu conteudo na memória. }

IBTable1Fotografia.SaveToStream(Stream);

{ Ajusta a posicao inicial de leitura da memória }
Stream.Position := 0;

{ Carrega da memoria os dados, para uma estrutura do tipo TJPEG
(A partir da posicao 0)}
Jpeg.LoadFromStream(stream);

{ Exibe o jpg no Timage. }
Image1.Picture.Assign(Jpeg);

{ Libera a memoria utilizada pelos componentes de conversão }
Jpeg.Free;
Stream.Free;

end;