Работа с TCalendar

[subman]

Доброго времени суток, помогите пожалуйста разобраться с некоторыми свойствами TCalendar в Delphi
Возникло несколько вопросов:
1) Как узнать месяц из TCalendar
Пробовал так, но возвращает всегда 01

Label9.Caption := FormatDateTime('mm', Calendar1.Month);

2) Как с передать значение компонента DateTimePicker1 в Calendar1 ?
Т.е. в DateTimePicker1 я выбираю нужную мне дату, а Calendar1 отображает мне этот месяц и год

[newerow1989]

Label9.Caption := IntToStr(Calendar1.Month);