Salut !

Tout en restant conscient que ce n'est qu'un petit prog de "test", il y a moyen de l'améliorer:

au lieu de prendre la position de la souris dans le onMove, il est mieux de la prendre à l'aide d'un timer qui la prend comme ça:

var pt: TPoint;
GetCursorPos(pt.x, pt.y);

Ca a comme résultat de prendre la position de la souris même quand elle dépasse la form.

...