[Михалыч]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
MonthCalendar1.Date := Date; // текущая дата 
Edit1.Text:= DateTimeToStr(MonthCalendar1.Date); // показ даты и ВРЕМЕНИ в Edit

Edit1.Text:= DateToStr(MonthCalendar1.Date); // показ даты в Edit
end;

end.

lmikle: Пользуемся тегами. Иначе последуют санкции.