A ver si es algo como esto:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
Var
dIni,dFin,dHoy:TDate;
nDias:Extended;
nQuedan:Extended;
nPorcien:Extended;
begin
dIni:=Date - 90;
dFin:=Date + 30;
dHoy:=Date;
nDias:=dFin - dIni;
nQuedan:=dFin - Date;
nPorcien:=nQuedan * 100 / nDias;
ShowMessage(FormatFloat('Porcentaje: '+'.00%',nPorcien));
end
Un Saludo.