[[Héctor Randolph]]

A grandes rasgos es algo como esto

• En el evento OnCreate del Form configura el timer con los x milisegundos
• Coloca en True la propiedad KeyPreview del Form.
• En el evento OnKeyDown del Form reinicia el timer de esta forma
  

  Código Delphi [-]
    Timer1.Enabled:=False;
    Timer1.Enabled:=True;

• En el Evento OnTimer desactivas el timer y cierras la Forma.

Es lo primero que se me ha ocurrido, es cuestión de probar

Saludos