Image改存JPG圖檔

uses JPEG;

procedure TForm1.pr_SaveBitmap(sFileName, sPicFormat: string);
var
  BMP: TBitMap;
  JPG: TJPEGImage;
begin
      BMP := TBitMap.Create;
      BMP.LoadFromFile(xxxxx);
      JPG := TJPEGImage.Create;
      JPG.CompressionQuality := 100;
      JPG.Assign(BMP);
      JPG.SaveToFile('xxxxx.jpg');
      JPG.Free;
      BMP.Free;
end;