Problema con DateTimePicker1

[Fat]

ok
Vale la sugerencia

Código Delphi [-]
var
  Ano1,Mes1,Dia1,Ano2,Mes2,Dia2:Word;
  a: integer;
begin
  DecodeDate(DateTimePicker1.DateTime,Ano1,Mes1,Dia1);
  DecodeDate(DateTimePicker2.DateTime,Ano2,Mes2,Dia2);