Calcular numero de dias entre dos fechas

[cokocool]

en mi caso yo necesito los dias transcurridos y si ya son dias pasados con respecto a la fecha actual en signo negativo.
el DaysBetween me da valores absolutos como debe ser. Pero yo los necesito con el signo, por eso uso el:

. . . ;
ShowMessage( floatToStr( StrToDate(Edit1.Text)- date ) );
. . . ;

obviamente en el Edit1 hay una fecha con el formato: dd/mm/yyyy.