Вот решение - насколько это глупо не звучало все равно скажу
- для решения достаточно было взглянуть в исходный код библиотеки
Код:
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');