Como bloquear pantalla y teclado en Delphi?

[[jcarteagaf]]

Hola amigos foreros, tengo un duda que se que uds. podran ayudarme a resolver:

He descargado la aplicacion WorkPause (http://www.praven3.com/), que basicamente te avisa - segun el tiempo que tu le programes - que necesitas descansar un momento. Tiene una opcion que al llegar el tiempo de descanso bloquea la pantalla y el teclado hasta que le das en el boton Unlock.

Me gustaria tener esa misma funcionalidad en Delphi.

Trabajo con Delphi 7, alguien puede ayudarme o darme una pista de como hago esto?.

Gracias por su tiempo y su interes.