Tja das is'es wieder, das Problem mit den TJpegImages und deren ziemlich abgespecktem Interface. Leider unterstützen die TJpegImage's nicht alle wichtigen Features.
Am besten mal folgendes probieren
Delphi-Quellcode:
with Img.Picture.Bitmap do
begin
Width := Image1.Picture.Width;
Height := Image1.Picture.Height;
Canvas.Draw(0, 0, Image1.Picture.Graphic);
end;
Image1.Picture.SaveToFile(...);
Statt Img zu speichern, wird es nur zur Anzeige benutzt. Wir speichern aus Image1 heraus.
Gruß Hagen