Calcular tiempo restante y mostrar en porcentaje

[alquimista]

No me funciona....
No se que estoy haciendo mal..

uso directamente fechas en Tdatetime. perdon!!!!! DurTotal es Extended;
No uso los dias en string directamente...
Uso dias, horas, minutos en Spinedits y los convierto a mano en tdatetime con la formula anterior. A lo mejor no lo hago bien??? Lo curioso es que me funciona bien al comparar.
Comienzo la captura InicioCap=hora actual) le añado la DurTotal(la que paso con los SpinEdits) y comparo Now>=DurTotal (esto dentro de un timer)

Código Delphi [-]
InicioCap:=Now();
 DurTotal:=InicioCap+DurTotal;
 ....      if (Now()>=DurTotal) then acabar