Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

JPG > BMP

01.01.2007
uses 
  JPEG
;
 
procedure
JPEGtoBMP(const FileName: TFileName);
var
  jpeg
: TJPEGImage;
  bmp
:  TBitmap;
begin
  jpeg
:= TJPEGImage.Create;
 
try
    jpeg
.CompressionQuality := 100; {Default Value}
    jpeg
.LoadFromFile(FileName);
    bmp
:= TBitmap.Create;
   
try
      bmp
.Assign(jpeg);
      bmp
.SaveTofile(ChangeFileExt(FileName, '.bmp'));
   
finally
      bmp
.Free
   
end;
 
finally
    jpeg
.Free
 
end;
end;
 
 
{
 
CompressionQuality (default 100):
 
Set a value between 1..100, depending on your need of quality and
  image file size
. 1 = Smallest file size, 100 = Best quality.
}

Взято с сайта https://www.swissdelphicenter.ch/en/tipsindex.php