读取并显示JPEG图片字段运行出错,请教各位老师我的源码哪里出错.(100分)

我现在用DELPHI开发一个程序,需要建立档案资料,里面有图片字段,我已把JPEG图片保存到BLOB字段中,我要把保存好的图片字段显示出来,可是执行按钮是出现：JPEG ERROR错误.
下面是我显示图片字段的源码.GFT_APPLYER是BDE数据表,我用的是INTERBASE数据库，各位师傅可否帮我看看哪里出问题啦?
IMAGE2:是IMAGE控件

procedure Ttest_applyer.btnShowImageClick(Sender: TObject);
var
strm:tmemorystream;
pic:tjpegimage;
begin
gft_applyer.open;
Pic:=TJpegImage.Create;
strm :=tmemorystream.Create ;
image2.Picture.Graphic := nil;
TBlobField(GFT_applyer.FieldByName('title_image')).saveToStream(strm);
Pic.LoadFromStream(strm);
image2.Picture.Graphic:=pic;
image2.Update;
pic.Free ;
strm.Free ;
end;
下面是保存图片字段的源码，已经OK。
procedure Ttest_applyer.BitBtn2Click(Sender: TObject);
var
pict:string;
begin
GFT_applyer.Edit;
pict:=opendialog1.FileName;
TBlobField(GFT_applyer.FieldByName('title_image')).LoadFromFile(pict);
GFT_applyer.post;
image1.Picture.LoadFromFile(pict);
image1.Update;
end;

我也遇到你这个问题，后来自己解决了。。现在在出差，看不到自己的源代码。。不好意思暂时不能答复你。。

回来后可否发你的源码给我,谢谢!

TBlobField(GFT_applyer.FieldByName('title_image')).saveToStream(strm);

strm.seek(0, 0);

Pic.LoadFromStream(strm);

按照tseug的方法已经可以了,谢谢!!