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.