uses Graphics, Jpeg; procedure BMP2JPG(const BMPFile: string); var BMP: TBitmap; JPG: TJpegImage; FileName: string; begin FileName := BMPFile; BMP := TBitmap.Create; JPG := TJpegImage.Create; try BMP.LoadFromFile(FileName); JPG.Assign(BMP); FileName := ChangeFileExt(FileName, '.jpg'); JPG.SaveToFile(FileName); finally BMP.Free; JPG.Free; end; end; procedure JPG2BMP(const JPGFile: string); var BMP: TBitmap; JPG: TJpegImage; FileName: string; begin FileName := JPGFile; BMP := TBitmap.Create; JPG := TJpegImage.Create; try JPG.LoadFromFile(FileName); BMP.Assign(JPG); FileName := ChangeFileExt(FileName, '.bmp'); BMP.SaveToFile(FileName); finally BMP.Free; JPG.Free; end; end;