delphi 存储文件到数据库

procedure loadfromdb
var
  PicStream: TMemoryStream;
begin

  PicStream := TMemoryStream.Create;
  TBlobField(FDQuery1.FieldByName('fujian')).SaveToStream(PicStream);
  PicStream.Position := 0;
  PicStream.SaveToFile('x:\1.jpg');
  PicStream.Free;

end;

procedure savetodb;
var
  PicStream: TMemoryStream;
begin
    PicStream := TMemoryStream.Create;
    Image1.Picture.Bitmap.SaveToStream(PicStream);
    TBlobField(FDQuery1.FieldByName('fujian')).LoadFromStream(PicStream);
    PicStream.Free;

end;