[Snake22]

ну примерно так наверное
запоминаешь координаты,и таймеров проверяем если они изменились то твоё условие.

Код:

var
  Form1: TForm1;
  P:Tpoint;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
 P2: TPoint;
begin
 GetCursorPos(P2);
 If (P.x=P2.x)and (P.y=P2.Y) then
 else Caption:='Позиция изменилась';
 
 P:=P2;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 GetCursorPos(P);
end;