Glyph d'un Bouton qui change avec le contenu d'un TImageList

Il s'agit d'un code montrant comment utiliser un Bouton visuel à la Place d'un Texte. L'image du Bouton est suffisamment claire pour se passer de texte. Les images proviennent d'un TImageList qu'l faudra paramétrer correctement. Le code ne présente pas de difficulté particulière mais un débutant peut passer du temps à lier les images du TImageList avec les Clic du Bouton. Le mécanisme serait le même avec d'autres types de contrôles utilisant des images: TMainMenu, TMenuItem, TToolBar, TToolButton, TActionList, TBitBtn, TSpeedButton.
On peut même utiliser des images de résolution différentes...

Pour montrer le fonctionnement du code exemple, on Créer un Objet qui se déplace dans la fenêtre client et rebondit sur les bords. On peut intervenir sur le sens du déplacement de l'objet soit à l'arrêt, soit en cours déplacement.
Les réglages lors de la conception sont au minima:
1. Choisir le contrôle (ici un TSpeedButton) qui affichera l'image contextuelle en provenance d'un TImageList.
2. L'image en question provient d'un TImageList que l'on charge avec l'éditeur d'image du TImageList. (Capture d'écran de l'éditeur dans le Zip).
Pour faire apparaître l'éditeur, on double clic sur le composant.
3. Mais avant de charger vos images qui n'auront pas besoin d'être dans le répertoire de votre application, il est préférable de changer les propriétés adéquates dans l'inspecteur d'Objet du contrôle (ici un
TSpeedButton) qui permutte les images souhaitées selon l'ordre voulu:
a. Propriété Height et Width du Bouton qui doit avoir au moins la valeur de résolution de l'image à visualiser + quelques pixels de marge.
b. Propriété images :
- Dans Name, mettre le nom du TimageList utilisé comme source d'images
- Dans With, mettre la résolution des images, 48 pixels par exemple
c. Propriété ImageIndex : mettre le numéro d'ordre de l'image dans TimageList par défaut (on peut gérer dans le code)
l'index commence à zéro.
d. Enfin par défaut, chargez l'image correspondant au numéro d'ordre à la création
dans la propriété Glyph du bouton