Для начала переменную лучше сразу при объявлении задать нулевой, типа как Cnt: integer = 0;
На D7 такого глюка получить почти не удалось, что только не делал, только при ЛКМ cnt тикает, а координаты нет, и ещё когда положил мышку на дребезжащую поверхность рядом с работающим шлифовальным станком тоже подобное наблюдалось :ю), в смысле может попробовать убрать немного чувствительность сенсора в настройках системы
З.Ы. А вот так
Код:
...
var
Form1: TForm1;
Cnt: integer = 0;
flg: TPoint;
implementation
{$R *.dfm}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (flg.X <> X) or (flg.Y <> Y) then inc(cnt);
flg.X:= X;
flg.Y:= Y;
end;
эффект пропал и на ЛКМ