Delphi - funciones del mouse y teclado

Hola.
Tengo una aplicacion donde necesito que sin importar el objeto activo o la ubicacion del mouse al momento de presionar una tecla o mover el ratòn mi programa se termine, (no me sirven los eventos mousemove y keypresed).

Urge

no quieres usar movemouse, etc.? y las API´s tampoco?
puedes probar con assembler...

Haber, mira te explico:

Tengo una animacion en un shockwave de flash, necesito que mientras el usuario quiera se repita la animacion, pero si "mueve el raton o presiona cualquier tecla" la aplicacion se termine.

Ahora, esto no me interesa si es o no con el evento mousemove o keypressed, lo que me interesa es que funcione como lo necesto, el problema es que el shockwave lo tengo del tamaño del form y el shockwave no tiene estos eventos por eso no he podido usarlos que de hecho a mi se me hacen mas facil, pero te comento este objeto (shockwave), no tiene estos eventos, no se que me puedas aconsejar.

Gracias