Salida automatica de aplicación

[[seoane]]

Hoy debo de estar dormido, acabo de borrar un mensaje en el que hablaba de fechas y demás. No se en que estaba pensando, pero lo que si es verdad es que a veces tu ejemplo Neftali no se para al llegar a cero, sino que comienza a contar hacia adelante. supongo que es algún problema con la comparación:

Código Delphi [-]
  if ((_af - _ah) <= 0) then begin

Aunque no veo cual puede ser el fallo.

Edito:
Si coloco esto:

Código Delphi [-]
  if ((_af - _ah) <= _ad) then
  begin
    Windows.Beep(500,100);
    Application.Terminate;
  end;

Al terminar la cuenta, se comienzan a oir los pitido pero la aplicacion no se cierra . Esto solo pasa si estoy viendo alguno de los menus de la aplicacion, ¿La instruccion Application.Terminate no funciona si esta abierto el menu? Ahora si que estoy desconcertado.

[Neftali [Germán.Estévez]]

En cuanto al primer IF no he conseguido que me pase.
En el segundo estoy igual que tú. Un poco (bastante) sorprendido. He probado con el menú y efectivamente, si estás "paseando" por el menú ignora el Terminate/Close.

En algun lugar debe estar "comiendose" esos mensajes.
Cuando tenga un rato me lo miro. Si descubrís algo más, comentadlo aquí; Ya es tema de curiosidad.