var
                 Position: TPoint;
         begin
                 GetCursorPos(Position);
                 Showmessage('Les coordonnées de la souris sont X: ' +
                         IntToStr(Position.X) + ' et Y: ' + IntToStr(Position.Y));
                
         end;
        

         var
                 MyPoint: TPoint;
         begin
                 GetCursorPos(MyPoint);
                 //Récupére la position du curseur
                 SetCursorPos(300, 200);
                 //Positionne le curseur sur la fiche
                 mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
                 //Simule l'action de clic du bouton gauche de la souris
                 mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
                 //Simule l'action de relacher du bouton gauche de la souris
                 SetCursorPos(MyPoint.X, MyPoint.Y);
                 //Repositionne le curseur à sa position d'origine
         end;