Блокировка при бездействии

[Liite]

Всем доброго дня. Такой вопрос, есть у делфей как ни будь общий EVENT вызываемый действиями пользователя? Просто нужно сделать блокировку формы при бездействии пользователя через определённое время. А писать на каждую кнопку сброс таймера не вариант. Пробовал повесить это дело на обработчик событий формы такие как KeyDown, Keyup, которые в свою очередь меняли значение глобальной переменой на True и False, если нажато то ложь если нет истина. Таймер должен был смотреть в эту переменную и если там истина то блочим, если ложь то сбрасыаем таймер. Но он игнорит это дело, то есть если убрать эту проверку то соответственно блочит форму в любом случае, а с проверкой ничего не делает.

вот куски кода, чтобы было понятней.

var
  Form2: TForm2;
  tm: Boolean;
implementation

procedure TForm2.chk6Click(Sender: TObject);
begin
if chk6.Checked = False then
   notuse.Enabled := false
   else
   begin
   notuse.Enabled := true;
   notuse.Interval := se1.Value*60000;
   tm := True;
   end
      end;

procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
tm := True;
end;

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
 tm := False;
end;

procedure TForm2.notuseTimer(Sender: TObject); 
begin
  if tm = True then 
   N4.Click;

end;

[evg_m]

application.OnIdle ??? запуск таймера бездействия

KeyPress MouseMove сброс таймера

------------------------
var lastaction: TDataTime; //здесь будем хранить время последнего действия пользователя

кеyPress, MosuseMove // здесь обновляем время

Ontimer OnIdle // проверяем время и останавливаем (если надо)