Código:
var
Form1: TForm1;
Dia,Mes,Ano:word;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
DecodeDate(DateTimePicker.DateTime,Ano,Mes,dia);
Edit1.name := inttostr(Ano);
Edit2.name := inttostr(Mes);
Edit3.name := inttostr(Dia);
end;