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.