كيف اسند الى متغيرات j,m,a السنة و الشهر و اليوم من مركبة datetimepicker

[me_delphi]

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var a,m,j:Word;
begin
   DecodeDate(DateTimePicker1.Date,a,m,j);
   Label1.Caption:= IntToStr(a);
   Label2.Caption:= IntToStr(m);
   Label3.Caption:= IntToStr(j);
end;