扫描问题

我做了一个扫描功能，但是每运行一次内存就上涨很多。大约有4、5M，这是怎么回事啊？不扫描没有问题，一扫描就完了。谁帮我看看啊？      ImgScan2.ScanTo:=1;
      ImgScan2.FileType:=3;
      ImgScan2.PageOption:=6;
      PachStr:=GetCurrentDir();
      ImgScan2.Image:=PachStr+'\Id.bmp';
      ImgEdit1.Zoom:=57;
      imgedit1.ClearDisplay; //清除图像。
      ImgScan2.OpenScanner;//打开扫描仪，装载驱动。
      ImgScan2.StartScan;
      ImgEdit1.Image:=PachStr+'\Id.bmp';
      ImgEdit1.Display;     //显示图像。
      ImgID.CutToClipboard; //拷贝图像。
      ImgEdit1.ClipboardCopy(0,0,Width,Height);
      ImgID.PasteFromClipboard; //粘贴图像。
      ImgScan2.StopScan;//中断扫描。
      ButSacanNo.Enabled:=True;
      ButScanYes.Enabled:=True;
    finally
      ImgScan2.CloseScanner; //关闭扫描仪，卸载驱动。
      ImgScan2.Destroy;
    end;谢谢大家了！