【delphi源代码】把Bmp格式的文件转换成为jpg格式

把Bmp格式的文件转换成为jpg格式的过程
procedure TForm1.BmpToJpg(SrcFileName,DestFileName:AnsiString);
begin
//把Bmp格式的文件转换成为jpg格式
JpgFile:=TJPEGImage.Create();
BitFile:=TBitmap.Create();
try
BitFile.LoadFromFile(SrcFileName);
JpgFile.Width:=BitFile.Width;
JpgFile.Height:=BitFile.Height;
JpgFile.Assign(BitFile);
JpgFile.SaveToFile(DestFileName);
finally
BitFile.Free;
JpgFile.Free;
end;
end;