[roamer]

А такая функция не может быть принята за основу ?

Код:

function ConvertFile_JPG_to_BMP(fn_JPG,fn_BMP : string; CompressionQuality : integer) : boolean;
//Конвертация JPG-файла в BMP-файл                                                                       
var
  JPEG: TJPEGImage;
  Bitmap: TBitmap;
begin
  Result:=FALSE;
  if FileExists(fn_JPG) then begin
     JPEG := TJPEGImage.Create;
     try
       if (CompressionQuality>0) and (CompressionQuality<=100) then begin
          JPEG.CompressionQuality:=CompressionQuality;
       end
       else begin
          jpeg.CompressionQuality := 100; {Default Value}
       end;
       jpeg.LoadFromFile(fn_JPG);
       Bitmap := TBitmap.Create;
       try
         Bitmap.Assign(jpeg);
         Bitmap.SaveTofile(fn_BMP);
         Result:=TRUE;
       finally
         Bitmap.Free;
       end;
     finally
       JPEG.Free;
     end;
  end;
end;