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