Hola:
Tienes razón, Bacterion, así es más sencillo, aunque la solución que tu planteas nos obliga a viajar hacia atrás en el tiempo confiando en que se cumpla la teoría de la relatividad por la que el binomio espacio-tiempo es una linea curva que tarde o temprano se vuelve a encontrar, y tal vez si hoy es 4-06-2003 y queremos llegar al 7-06-2003 haya que recorrer una cantidad de años considerable.
Mejor sería así: NumDias := Trunc(Fecha2 - Fecha1);
Un saludo