修正Delphi源码：将BMP、JPG图片压缩至640x480 JPG格式