var
  object_cur_pos: TPoint;

<...>
procedure DataForm.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   <...>
   if ExternalCursorOn and MouseTimer.Enabled then MouseTimer.Enabled:=false; // прекратить отслеживание координат
   <...>
end;

procedure DataForm.MouseTimer(Sender: TObject);
begin
  GetCursorPos(object_cur_pos); // считать глобальные координаты курсора
end;