将图标方在资源文件中,需要的时侯调入
如:Image1.Picture = LoadResPicture(101, 0)