如何把数据库中的jpg或jpeg格式的图像数据通过Image控件显示?

各位前辈，如何把数据库中的jpg或jpeg格式的图像数据通过Image控件显示？
我的代码如下，编译时老是出现错误警告框“JPEG error#42”这是怎么回事？
麻烦各位帮我出出主意，谢谢！uses jpeg,Graphics;procedure TDM.ADODataSet1AfterScroll(DataSet: TDataSet);
var
  strm:tadoblobstream;
  jpegimage:tjpegimage;
 //  bitmap:tbitmap;
begin
strm:=tadoblobstream.Create(tblobfield(DM.ADODataSet1.FieldByName('相片')),bmread);
   try
   Frm_Main.image1.Picture.Graphic:=nil;
   jpegimage:=tjpegimage.Create ;   //bitmap := tbitmap.create;
     try
       jpegimage.LoadFromStream(strm);
     //bitmap.LoadFromStream(strm);
       Frm_Main.image1.Picture.Graphic:= jpegimage;
     finally
       jpegimage.Free ;
     end;//try
   finally
   strm.Free ;
   end;//tryend;