Duda con la función daysbetween

[grandzon]

Hola roman lo que sucede es lo siguiente:

Estoy desarrollando una aplicación para control de préstamos y en una parte toma en cuenta los días que lleva de atraso el cliente en el pago de la cuota, el usuario declara el número de días de atraso en los que empezará a correr la mora (pe. 3 días), realizo una comparación entre ese valor y el que me devuelve la función DaysBetween, si es mayor que 3 me realiza el cálculo de la mora que se sumaría al monto de la cuota a pagar de esta manera

Código Delphi [-]
DiasdeAtraso, DiasaTomarenCuenta: integer;
...
DiasdeAtraso:=DaysBetween(datetimepicker1, date);
if DiasdeAtraso>DiasaTomarenCuenta then //me calcula la mora

por lo tanto me sería conveniente que si comparo una fecha futura me devuelva un número negativo para que la mora sea := 0;

Me inicié hace poco en la programación y por más que he buscado en la web no encuentro respuesta.