Excellent et simple.
La variable globale Choix est pratique et rend le source plus lisible que l'utilisation du transtypage :
TControl(Source).parent := TWincontrol(sender);
// équivalent à Choix.parent := Form1;

Toutefois l'utilisation du transtypage permet d'écrire le même code en divisant le nb de procédures par deux.
Une seule procédure de chaque pour tous les labels (ou autres contrôle d'ailleurs).  Il suffit seulement d'affecter la même procedure à tous les événements des contrôles déplaçables, puis la même à tous les c'est en fait l'utilité principale des paramètre tels que "sender" et "source".

Pour afficher une image il faut que le composant décode le fichier de l'image, je me suis contenté d'utiliser le composant standard de Delphi qui décode les images jpeg et bmp, mais pour les autres types d'images je ne suis pas assez pointu pour écrire le composant adéquat. Il y a aussi une possiblité sans doute en employant des dll de décodage pour contruire un bitmap hors écran et ensuite l'envoyer au composant TImage, mais là aussi çà dépasse ma compétence.