[Electronic_Arts]

Вот решение - насколько это глупо не звучало все равно скажу
- для решения достаточно было взглянуть в исходный код библиотеки

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

var bmp32: TBitmap32; jpeg: TJPEGImage; bmp : TBitmap; begin bmp32:= TBitmap32.Create; bmp32.Assign(image321.Bitmap); jpeg:=TJPEGImage.Create; BMP32.Width:=IMAGE321.Width; BMP32.Height:=IMAGE321.Height; image321.Bitmap.DrawTo(bmp32, bmp32.BoundsRect); bmp := TBitmap.Create; bmp.Assign(bmp32); bmp.PixelFormat:= pf24bit; jpeg.Assign(bmp); jpeg.CompressionQuality:=50; jpeg.Compress; jpeg.SaveToFile('D:\a1.jpg');