[a.n.d.r.e.w]

Привет форум!

пишу САПР. барабашку заметил только на конечном этапе
раз в секунду происходит самопроизвольное событие MouseMove
вот пример:

Код:

unit Unit1;

interface

uses

  System.SysUtils,
  System.Classes,
  Vcl.Forms;



type
  TForm1 = class(TForm)
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  end;

var
  Form1: TForm1;  Cnt: integer;

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 inc(cnt);
 Caption:=inttostr(cnt);
end;

end.

1.тикает в заголовке циферка раз в секунду.
2.только когда окно в фокусе.
3.только когда курсор в клиентской части формы.

пробовал разные мышки и беспроводные и проводные.
фигня с компьютером понятно.
но чё делать?