Lanzar una funcion con una tecla rapida

Supongamos que quieres que una pantalla se cierre al pulsar la tecla Escape.

Dentro del procedure MyWindow() de la pantalla tendrias que poner:

event("ESC_CerrarPantalla", "pantalla a la que afecta", WM_KEYDOWN)

Y create una procedure con:

IF KeyPressed(kpEscape, False) THEN 
         Close("pantalla a la que afecta")
END