[Alegun]

Ну в этом примере не зря таймер используется, контроллер клавы повторяет посылки нажатий, а с мышки нет. Используйте повтор

З.Ы. В смысле

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Button1.Tag > 0 then Inc(Переменная);
  end;