Запазете TBitMap като JPEG

Приятели, помогнете ми да разреша проблема. Имам обект TBitMap, чието изображение трябва да бъде запазено в JPEG с качество най-малко 90, след което да разпозная това изображение.

вар
Bmp: TBitMap;
JPG: TJPEGImage;

Bmp: = MCD.GetBitmap; // получавам изображението
if (Bmp = nil) // проверете
тогава
започнете
MCD.ShowErrorMsg ("Грешка");
Изход;
край;
JPG: = TJPEGImage.Create; // JPEG единицата е посочена в употреби
опитвам
JPG.Присвояване (BMP); // присвояване на данни от TBitMap
JPG.PixelFormat: = jf24Bit; // посочете формата
JPG.SaveToFile (AppPath + "Изображения \ Psp.jpg"); // запазване
накрая
JPG.Безплатно;
край;

JPG.Compress забрави.
Ето как работи:

процедура tbitmaptojpgfile (растерно изображение: tbitmap;
ниво на компресия: байт;
jpgfilename: низ);
var jpg: tjpegimage;
започнете
jpg: = tjpegimage.create;
с jpg do
опитвам
Присвояване (растерно изображение);
CompressionQuality: = ниво на компресия;
Изглаждане: = вярно;
Компресиране;
SaveToFile (jpgfilename);
накрая

---