Te recomiendo buscar en el foro hilos que contengan la palabra hook... o bien puedes ver este código de nuestro compañero román:
http://www.clubdelphi.com/users/roman/hooks.php (Aunque no estoy del todo de acuerdo, por experiencias personales, cuando comenta:
Según la documentación, los 'ganchos' de sistema deben implementarse en una DLL pero parece funcionar simplemente incluyendo la unidad hooks.pas en cualquier proyecto. , posiblemente así suceda en Win2k)
Saludos!