Diferencia de fechas

[CFPA86]

Hola a todos mi solucion fue, si le interesa a alguien

Var
x,y:TDateTime;
Resultado:Integer;
Begin
x := EncodeDate(2005, 12, 25); //es año, mes, dia en la codificacion
y := EncodeDate(2005, 11, 22);
Resultado := Trunc(x) - Trunc(y); //resultado debe tener 33
...
End;

Codigo escrito por Luisgutierrezzb del foro, gracias a todos y especialmente a Dec.
Chauuuuuu