代码最优的问题

是图片引起的，图片存在.frx文件中，减肥方法：
1、不要采用BMP格式存放图片，把图片用ACDSee转成GIF或JPG格式的
2、图片放在程序外，动态加载：
方法一:
   Picture1.Picture=LoadPicture(App.Path & "\yourPic.jpg")
方法二:
   用资源编辑器，把图片放在资源文件中，要显示时再用LoadResPicture读入