delphi 画图撤销控件

最近要做个小工具，搜索了一下画图撤销，无果，就自己写了，顺便打包成控件，给需要的朋友参考参考，D7下编译。

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        450  2018-12-25 10:29  画图控件\pack\PBrushImage.cfg

     文件       3442  2018-12-25 10:29  画图控件\pack\PBrushImage.dcu

     文件       2564  2018-12-25 10:29  画图控件\pack\PBrushImage.dof

     文件        543  2018-12-25 10:29  画图控件\pack\PBrushImage.dpk

     文件       1536  2018-12-25 10:28  画图控件\pack\PBrushImage.res

     文件       9438  2018-12-25 10:43  画图控件\pack\Ubrush.dcu

     文件      10880  2018-12-25 10:46  画图控件\pack\Ubrush.pas

     文件        446  2018-12-25 10:27  画图控件\Project2.cfg

     文件       2564  2018-12-25 10:27  画图控件\Project2.dof

     文件        188  2018-12-06 11:38  画图控件\Project2.dpr

     文件     400896  2018-12-25 10:43  画图控件\Project2.exe

     文件        876  2018-11-20 10:31  画图控件\Project2.res

     文件       5393  2018-12-25 10:43  画图控件\Unit1.dcu

     文件         51  2018-12-25 10:26  画图控件\Unit1.ddp

     文件       2146  2018-12-25 10:25  画图控件\Unit1.dfm

     文件       1639  2018-12-25 10:25  画图控件\Unit1.pas

     目录          0  2018-12-25 10:46  画图控件\pack

     目录          0  2018-12-25 10:28  画图控件

----------- ---------  ---------- -----  ----

               443052                    18