Esta está perfecta solo cambie el orden de los DateTimePicker para que me diera el valor que queria.
Código Delphi
[-]
var
a: int64; // Es el tipo que regresa la función Trunc
begin
a:= Trunc(DateTimePicker2.Date - DateTimePicker1.Date);
Label1.Caption:= IntToStr(a);
Muchas Gracias por su ayuda como siempre