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

[amer mohamed]

السلام عليكم
كيف اتحصل على قيمة ثلث متغيرات
الاولى j و يسند اليها اليوم
الثانية m و يسند اليها الشهر
الثالثة a و يسند اليها السنة
و الثلاث يجب ان تستخرج من datetimepicker)
datetimepicker متغيرة القيمة عند اللزوم اي عند تغييرها تتغير معها المتغيرات الثلاث j,m,a)

[me&delphi]

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;