Bloquear aplicación por inactividad

[[Caral]]

Hola
Bueno, que os parece asi:

Código Delphi [-]
MessageBox(Handle, 
             PChar('Si El Estupendo Empleado a cargo de este equipo No viene en cinco minutos' + #13#10 + 
                   'Nos veremos en la necesidad de llamarle muy respetuosamente la atención.' + #13#10 + 
                   'Ahh, Si ha tenido algún problema Estomacal, por favor Darse La semana Libre.' + #13#10 + 
                   '                                APLICAN RESTRICCIONES'), 
             PChar('Amigo, Empleado del alma, El Sistema se esta Bloqueando'),
             MB_OK + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL);

Saludos