Con este funciona
Código Delphi
[-]
var
Ano1,Mes1,Dia1,Ano2,Mes2,Dia2:Word;
begin
DecodeDate(DateTimePicker1.DateTime,Ano1,Mes1,Dia1);
DecodeDate(DateTimePicker2.DateTime,Ano2,Mes2,Dia2);
label1.Caption:= inttostr(dia2-dia1);
de todas maneras si puedes dime como podria hacerlo a tu manera.