procedure TForm1.MonthCalendar1Click(Sender: TObject); begin Table1.Edit; Table1SaleDate.value:=MonthCalendar1.Date; end;