怎样用Delphi的数据库储存JPG格式的图片入数据库？

Question

//保存图片
TBlobField(Table1.FieldByName('picture')).LoadFromFile('xxxx.jpg');
//读取图片
uses Jpeg;procedure TForm1.ShowPicture;
var
  MS: TMemoryStream;
  JpegImage: TJpegImage;
begin
  MS := TMemoryStream.Create;
  TBlobField(AdoTable1.FieldByName('picture')).SaveToStream(MS);
  MS.Position := 0;
  if 是JPEG格式图像 then
  begin
    JpegImage := TJpegImage.Create;
    JpegImage.LoadFromStream(MS);
    Image1.Picture.Graphic := JPegImage;
    JpegImage.Free;
  end 
  else if 是位图 then
    Image1.Picture.Bitmap.LoadFromStream(MS)
  else if 是图标 then
    Image1.Picture.Icon.LoadFromStream(MS);
  MS.Free;
end;