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

[amer mohamed]

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

[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;