Calcular tiempo restante y mostrar en porcentaje

[alquimista]

Muy buenas...

Estoy usando variables tipo TdateTime, para medir tiempo de adquisicion de datos.

Uso durTotal para duración total de datos
Luego comparo con la fecha y hora actual. hago la resta
if (Now()>=DurTotal) then termino captura.

Cuando muestro tiempo restante (durTotal -now) si la duracción total supera en unas 12 horas o un dia me la muestra mal.

Y como puedo hacer que se muestre en porcentaje (como son valores (tdatetime) con muchos decimales no se como hacerlo) para usar una progressbar

Un saludo...