Sauvegarde d'une image jpeg modifiée

J'affiche une image au format jpg dans un objet TImage en utilisant l'unité jpeg.

Je voudrais pouvoir modifier cette image (par exemple faire un zoom * 2) et la sauvegarder.

Je ne sais pas de quelle manière je dois m'y prendre pour la sauvegarder à partir de l'objet TImage modifié.
Merci de votre aide.

SaveToFile, le problème étant que tu sauves l'image originale !
il faut récupérer le bitmap interne qui sert à l'affichage : j'avais vu il y a peu une méthode en transtypant en T(quelquechose)Graphic... j'ai cherché, mais pas retrouvé : c'est un objet qui a accès au Bitmap interne qui est recopié lors du Repaint

[EDIT]ça y est, j'ai retrouvé la solution de waskol :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

type TPublicGraphicControl=class(TGraphicControl);   procedure TTonCompo.Paint; begin inherited Paint; //utilise le canvas du TGraphicControl (le vrai Canvas du TImage) With TPublicGraphicControl(Self).Canvas do begin Pen.Color := clRed; Brush.Color := clRed; Rectangle(0,0,Width,Height); end;

---