Problema con DateTimePicker1

[Fat]

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.