TDBDateEdit not update date when select from calendar on button click

[eldonfsr]

Hello I dont' know what is doing wrong i have TDBDateEdit control click on button and open calendar to select a date I select and show me  value but at Table field is show me date 12/30 /1989 not date i selected from calendar, What i need to do to update and take value i selected...

 her is code a run when exit from control

Code: Pascal  [Select][+][-]

1. procedure TFormWordInf.DBDEBuildDateExit(Sender: TObject);
2. begin
3.   showmessage(  Datetostr(RxWorkOrd.FieldByName('BuildDate').asDateTime) + ':'+ Datetostr(RxWorkOrd.FieldByName('WoDate').asDateTime));
4.   if( RxWorkOrd.FieldByName('BuildDate').asDateTime >=RxWorkOrd.FieldByName('WoDate').asDateTime  ) then begin
5.       BtnProcc.Enabled:=true;
6.   end;
7.   BtnMats.enabled:=true;
8.   BtnMats.SetFocus;
9. end;
10.  

[eldonfsr]

Here are screen you can see what not take de values i select from calendar

[eldonfsr]

I Fond My problem i must call event OnAcceptDate  like this

Code: Pascal  [Select][+][-]

1. procedure TFormPOrd.DBDEReqDateAcceptDate(Sender: TObject;
2.   var ADate: TDateTime; var AcceptDate: Boolean);
3. begin
4.   FormPoCtrl.RxPOrders.FieldByName('PoReqDate').AsDateTime:= ADate;
5. end;
6.