日付はdate型で　Edit.text　は　string型　なのでこれを　dateからtext　に変換するための　DateToStr　を使って入れています。

procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
begin
　Edit1.Text := DateToStr(MonthCalendar1.Date);
end;