Bmp To Jpg and Jpg To Bmp

uses Jpeg;

procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string);
var
 Bmp: TBitmap;
 Jpg: TJPEGImage;
begin
 Bmp := TBitmap.Create;
 Jpg := TJPEGImage.Create;
 try
   Bmp.LoadFromFile(BmpFileName);
   Jpg.Assign(Bmp);
   Jpg.SaveToFile(JpgFileName);
 finally
   Jpg.Free;
   Bmp.Free;
 end;
end;

procedure Jpeg2Bmp(const BmpFileName, JpgFileName: string);
var
 Bmp: TBitmap;
 Jpg: TJPEGImage;
begin
 Bmp := TBitmap.Create;
 Jpg := TJPEGImage.Create;
 try
   Jpg.LoadFromFile(JpgFileName);
   Bmp.Assign(Jpg);
   Bmp.SaveToFile(BmpFileName);
 finally
   Jpg.Free;
   Bmp.Free;
 end;
end;