JPG图片以二进制格式保存进Oracle数据库过程中内存释放不干净!请高手指点代码中的缺陷

存储约50K的JPG图片70张以后占用内存增加了7M,下一个循环70张又逐步增加7M,内存始终无法恢复到存储前的状态值,1000张以后系统基本停滞了,高手救急!procedure TSaverRecord.SavePicture;//图片存储
var
  JPGPic: TJpegImage;
  JPGStream: TMemoryStream;
begin
  with Image1 do
  begin
    if Picture.Graphic = nil then
      exit;
    try
      JPGPic := TJpegImage.Create;
      JPGPic.Assign(Picture.Graphic);
      //BMP格式转换JPG
      JPGPic.CompressionQuality := 90;//压缩率
      JPGPic.Compress;
      JPGPic.JPEGNeeded;
      JPGStream := TMemoryStream.Create;
      JPGStream.SaveToStream(LMSM_Media);
      JPGStream.Position := 0;
      if JPGStream <> nil then
      begin
        try
          ADODataSet1.append;
  TBlobField(ADODataSet1.FieldbyName(Image)).LoadFromStream(LMSM_Media);//存储数据库
          ADODataSet1.Post;
        except
        end;
      end;
    finally
      JPGPic.Free;
      JPGStream.Free;
    end;
end; end;