Graphic32: TBitmap32 als Jpg abspeichern

[Die Muhkuh]

Hi,

das hab ich jetzt gemacht, aber das jpg ist so groß wie ein Bitmap Anstatt ~190kb hatte das jpg 4,68 mb!

Unit GraphicEx (anstatt JPEG) ist eingebunden. Hab es auch schon direkt mitder Unit JPEG probiert, aber dort isses das gleiche.

Abspeichern:

Delphi-Quellcode:

Saver := edSaveAs.Text + aName;
Saver := ChangeFileExt(Saver, '.jpg');
TempPic.SaveToFile(Saver);

Die Endung stimmt, aber das Jpg wird halt so groß^^. Was kann ich dagegen tun.

Auf ein TJPEGImage zugreifen, möchte ich eigentlich vermeiden.