
This component provides a basic calendar, which can be manipulated through its properties. The following design was laid out on the 8th of June:

Some code was provided for the OnClick event:
procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:=datetostr(calendar1.CalendarDate);
end;

The TDateTime types could be used to produce a useful tool, though the DateTimePicker and MonthCalendar components in the Win32 palette provide a similar function.