数据库存取图像

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  jpeg:TJpegImage;
  mem:TmemoryStream;
begin
   mem:=TmemoryStream.Create;
   mem.LoadFromFile("E:/Adobe/Adobe1.jpg");
   ADOQuery1.Insert;
   TBlobField(ADOQuery1.FieldByName("Image")).LoadFromStream(mem);
   ADOQuery1.Post;
   mem.Free;

   ADOQuery1.First;
   jpeg:=TJpegImage.Create;
   TBlobField(ADOQuery1.FieldByName("image")).SaveToFile("E:/aa.jpg");
   jpeg.LoadFromFile("E:/aa.jpg");
   Image1.Picture.Assign(jpeg);
   jpeg.Free;
   deleteFile("E:/aa.jpg");

end;