Simple Calendar in C++ Builder

void __fastcall TForm4::FormCreate(TObject *Sender)

{

 Edit1->Text=DateToStr(CCalendar1->CalendarDate);

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button1Click(TObject *Sender)

{

 Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm4::CCalendar1Change(TObject *Sender)

{

 Caption="Year-Month-Day  "+DateToStr(CCalendar1->CalendarDate);

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button2Click(TObject *Sender)

{

 CCalendar1->PrevYear();

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button3Click(TObject *Sender)

{

 CCalendar1->PrevMonth();

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button4Click(TObject *Sender)

{

 CCalendar1->NextYear();

}

//---------------------------------------------------------------------------

void __fastcall TForm4::Button5Click(TObject *Sender)

{

 CCalendar1->NextMonth();

}