Calcular tiempo restante y mostrar en porcentaje

[ecfisa]

Hola alquimista.

Usar las funciones de Delphi, como ya te lo comentó duilioisola, es más simple y seguro.

Pero veo que en este cálculo tenés un error:

Código Delphi [-]
DurTotal:=(SEDay.Value*3600*60+SEHour.Value*3600+SEMin.Value*60)*1000;

No es: SEDay.Value * 3600 * 60, ya que el día tiene 24 horas y no 60. Lo que correspondería es: SEDay.Value * 24 * 3600.

Seguramente sea eso lo que te genere el error.

Saludos.