Calcular tiempo restante y mostrar en porcentaje

[alquimista]

Bueno...
vale...
Me falta lo del porcentaje para una barra de progreso....
¿Que hago ahora?.. paso el str a numero otra vez y lo multiplico por 10000000000 ?? No me queda muy claro...

Ya he trabajado con las funciones de delphi y he rehecho las rutinas
Lo he solucionado de esta forma..

Por si a alguien le sirve....

Código Delphi [-]

function MostrarRestante(const Ini,Fin: TDateTime): string;
var
  d,h,m,s: Word;
begin
  d:=0;
  if DaysBetween(Ini,Fin) > 0 then
    d:= DaysBetween(Ini, Fin);
  h:= HourOf(Ini - Fin);
  m:= MinuteOf(Ini - Fin);
  s:= SecondOf(Ini - Fin);
  Result:= Format('%2d dia(s) %.02d:%.02d:%.02d',[d,h,m,s]);
end;
.......
var AinicioCap, AFinCap:Tdatetime;
.......
        AInicioCap:=Now;
        AfinCap:=IncDay(AinicioCap, trunc(SEDay.Value)); // Sumo dias a la fecha actual
        AfinCap:=IncHour(AfinCap, trunc(SEHour.Value)); //Sumo horas
        AfinCap:=IncMinute(AfinCap, trunc(SEMin.Value)); //Sumo minutos

        Edit1.Text:=Datetimetostr(AfinCap);

.......

        Edit2.Text:=Mostrarrestante(Now,AfinCap);
..... 
        str:=Floattostr(AFinCap);   // ej.- 46789,2345677883

......
        if Now>=AfinCap then termina

Si me podeis poner algún ejemplo de lo del porcentaje..

Gracias por la ayuda...