delphi 实现 图片类型转换 jpg

下面三个delphi函数实现了bmp类型图片和jpg(jpeg)类型图片的转换和改变位图图片的大小。
jpg转换为bmp:
{********************************************
作者/日期
描述： 实现jpg(jpeg)图片向bmp图片的转换
参数介绍
FileName:要转换的jpg(jpeg)图片的名称（包括路径）
SaveFileName:转换后的bmp图片的存储位置。
           默认为空，相当于修改源文件类型
********************************************}
Procedure pic_jpgtobmp(Const FileName: String;SaveFileName:String='');
Var
Bitmap: TBitmap;
JPeg: TJPegImage;
Begin
Bitmap := Nil;
JPeg := Nil;
Try
    JPeg := TJPegImage.Create;
    JPeg.LoadfromFile(FileName);
    Bitmap := TBitmap.Create;
    Bitmap.Assign(JPeg);
    IF Trim(SaveFileName)='' Then
      Bitmap.SaveToFile(ChangeFileExt(FileName, '.bmp'))
    Else
      Bitmap.SaveToFile(SaveFileName);
Finally
    FreeAndNil(Bitmap);
    FreeAndNil(JPeg);
End;
End;
{********************************************
作者/日期 dqc 2007.12.30
描述： 实现bmp图片向jpg(jpeg)图片的转换
参数介绍
FileName:要转换的bmp图片的名称（包括路径）
SaveFileName:转换后的jpg(jpeg)图片的存储位置。
           默认为空，相当于修改源文件类型
********************************************}
Procedure pic_bmptojpg(Const FileName: String;SaveFileName:String='');
Var
Bitmap: TBitmap;
JPeg: TJPegImage;
Begin
Bitmap := Nil;
JPeg := Nil;
Try
    Bitmap := TBitmap.Create;
    Bitmap.LoadfromFile(FileName);
    JPeg := TJPegImage.Create;
    JPeg.Assign(Bitmap);
    IF Trim(SaveFileName)='' Then
      JPeg.SaveToFile(ChangeFileExt(FileName, '.jpg'))
    Else
      JPeg.SaveToFil