Hi!
Nimm ein TJPEGImage, das du zur Laufzeit erzeugst (
Unit jpeg in die Uses aufnehmen) und zeichne direktdarauf oder wandle dein Bild um, indem du desen Code ausführst:
Delphi-Quellcode:
var Bild: TJPEGImage;
...
Bild := TJPEGImage.Create;
Bild.Assign(Image1.Picture.Bitmap);
Bild.SaveToFile('Pfad');
Ich hab es jetzt nicht getestet, aber es sollte klappen.