كيف استخرج من datetimepicker

[TF6M]

و عليكم السلام و رحمة الله و بركاته
إستخدم DeCodeDate/EnCodeDate .

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
Var
  Date:TDate;
  J,M,A:Word;
begin
Try
 Date:=StrToDate(MaskEdit1.Text);
 DeCodeDate(Date,A,M,J);
 Edit1.Text:=IntToStr(J);
 Edit2.Text:=IntToStr(M);
 Edit3.Text:=IntToStr(A);
Except
On E:Exception Do
 ShowMessage(E.Message);
 End;
end; 


بالتوفيق ,,