Bloquear aplicación por inactividad

[[enecumene]]

Código Delphi [-]
if Contador = 5 then
  begin
    MessageBox(Handle, 
             PChar('Si este G..... No viene en cinco minutos esta despedido.' + #13#10 + 
                   'Ahh, y que no me venga con cuentos de que le dolía el estomago.'), 
             PChar('Sistema bloqueado'),
             MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);
  end;

Jajaja, esa estuvo buena, lo voy a poner despues de cada n veces que sale el mensaje.