Daysbetween

[nenufer]

Buenas!! Utilizo delphi7,tablas paradox.

tengo un problema con un procedimiento. Quiero calcular los dias que pasaron desde que alquile una pelicula hasta que la devolvi.

Código Delphi [-]
procedure TDM.CalculoDeuda();
var
  dias,diasDebe : integer;
  Deuda : double;
begin
  dias := 0; <--------por aqui no pasa
  DiasDebe := 0;<--- por aqui tampoco

  dias := trunc (DaysBetween (TblAlquileresFecha_Alquiler.Value,
             TblAlquileresFecha_Devolucion.Value));

      if TblAlquilerNum_dias.Value < inttostr(dias) then
        begin
          diasDebe := dias - strtoint(TblAlquilerNum_dias.Value);
          Deuda := TblAlquilerSancion.Value * diasDebe;

          TblDeudaDeuda.Value := round(Deuda);
          TblDeuda.Post;
        end;
    end;

El numero de dias me lo devuelve a 0. Si le pongo :

Código Delphi [-]
dias := trunc (DaysBetween (TblAlquileresFecha_Alquiler.Value,
             now));

Me devuelve el numero de dias mal. No se que es lo que estoy haciendo mal.
Si alguien me puede ayudar,gracias de antemano.