[Bacterion]

Eso o restar las dos fechas (mejor lo del Delphi 6, pero en su falta)
La parte entera es el número de días...

NumDias := Trunc(Fecha1 - Fecha2);