uses Jpeg;procedure XXXXXXXX.XXXX(XXXXXX:XXXXX);
var
  MS: TMemoryStream;
  JpegImage: TJpegImage;
begin
  MS := TMemoryStream.Create;
  TBlobField(AdoQuery.FieldByName('xxxx')).SaveToStream;
  MS.Posotion := 0;
  if 是JPEG格式的 then
  begin
    JpegImage := TJpegImage.Create;
    JpegImage.LoadFromStream(MS);
    Image1.Picture.Graphic := MS:
    JpegImage.Free;
  end
  else if 位图 then
    Image1.Picture.Bitmap.LoadFromStream(MS)
  else if 图标 then
    Image1.Picture.Icon.LoadFromStream(MS);
  MS.Free;
end;