这里主要是利用到TOpenPictureDialog和TSavePictureDialog两个控件通过
　　1.这里有一个判断扩展名的方法，是否为bmp格式，
　　 if LowerCase(ExtractFileExt(srcFileName))='bmp' then
　　2.保存语句
　　 BitFile.savetofile(DestFileName);
　　这里有一个assign方法，可使JpgFile和bitmap相互克隆
　　定义一个bmp转换成jpg格式的函数过程：
　　procedure BmpToJpg(srcFileName,destFileName:ansistring);
　　begin
　　 bitFile:=Tbitmap.create();
　　 JpgFile:=TjpegImage.create();
　　 try
　　 bitFile.loadfromfile(srcFileName);
　　 jpgfile.width:=bitfile.width;
　　 jpgfile.height:=jpgfile.height;
　　 jpgfile.assign(bitfile);
　　 jpgfile.savetofile(destfilename);
　　 finally
　　 bitfile.free;
　　 jpgfile.free;
　　end;
　　end;