使用delphi编写使用画笔画图,并且加入选择文件夹保存功能的实列,