[friz]

Не забываем в uses писать еще и JPEG

Код:

procedure JPEGtoBMP(const FileName: TFileName); 
var 
  jpeg: TJPEGImage; 
  bmp:  TBitmap; 
begin 
  jpeg := TJPEGImage.Create; 
  try 
    jpeg.CompressionQuality := 100; {качество сжатия} 
    jpeg.LoadFromFile(FileName); \\загружаем из файла
    bmp := TBitmap.Create; 
    try 
      bmp.Assign(jpeg); 
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));  \\ сохраняем в файл
    finally 
      bmp.Free 
    end; 
  finally 
    jpeg.Free 
  end; 
end;