Conserver un TImage lors de son redimensionnement

Quand une application dispose d'un TImage servant de base de dessin avec align = alClent. Le Timage est redimensionné quand la fiche change de taille. Or le Bitmap conservé dans le TImage ne change pas de taille. Le programme donné ici permet de recréer le bitmap en conservant la partie d'image déjà créée.