porcentaje restante entre dos fechas - delphi

[[Caral]]

Hola
Pues no se exactamente en porcentaje ya que los meses tienen varios dias dependiendo del mes y año.
Lo que yo haria no seria por porcentaje sino por tiempo/fecha.
Tengo en la BD dos fechas:
Fecha inicio: 12/01/2010
Fecha Fin: 12/02/2010
Quiero que me avise un 10% antes, osea mas o menos 3 dias, entonces.

Código Delphi [-]
Var Fecha: Tdate
Begin
  Fecha:= Now;
  query1.sql.text:= 'Select FechaFin Form mitabla';
  Query1.Open;
   If Fecha = (Query1.filebyname('FechaFin').AsDate - 3) then
  ShowMessage('Tiempo');
  End;

Saludos