新手：如何得到MonthCalendar的值？

我想双击DBGrid中的date字段，弹出MonthCalendar控件，选中其中的日期，让其出现在
date字段中，我在procedure TForm1. DBGrideditbuttonclick(Sender: TObject);这样写：
if DBGrid1.SelectedField=ADOQuery1.FieldByName('date') then
begin
MonthCalendar1.Visible:=true;
if ADOQuery1.State=dsBrowse then
ADOQuery1.Edit;
ADOQuery1.FieldByName('date').AsDateTime:=MonthCalendar1.Date ;end;
可总是得到当前的日期，怎样得到MonthCalendar1所点中的值呢，还望大家多多指点！