En el ejemplo que yo pongo utilizo dos Tedit, para mostrar en uno el mes y en el otro el año, en realidad es lo mismo que actuar con una fecha.
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
dd,mm,aa:Word;
begin
DecodeDate(DateTimePicker1.Date,aa,mm,dd);
Edit1.Text:=IntToStr(mm);
Edit2.Text:=IntToStr(aa);
end;
Espero que sea esto lo que preguntabas.
Un Saludo.