FJpeg := TJPEGImage.Create;
      FStream := TBlobStream.Create(TBlobField(Table1.FieldbyName('照片')), bmRead);
      try
        FJpeg.LoadFromStream(FStream);
        Image1.Picture.Assign(FJpeg.Bitmap);
      finally
        FStream.Free
      end