Invalit argument to date encode

[sako]

label3.Caption:=inttostr(MonthOf(DateTimePicker1.Date));
calendar1.Month:=strtoint(label3.Caption);

Arkadaşlar yukarıdaki kodda şu hatayı veriyor..
Invalit argument to date encode

[husonet]

calendar1.Month Bu bileşeni tanıyamadım. Ve ayrıca ne yapmak istediğinizi yazarsanız daha farklı fikirlerde ortaya çıkar kanısındayım.

Kolay Gelsin...

[sako]

label3.Caption:=inttostr(MonthOf(DateTimePicker1.Date));
calendar1.Month:=strtoint(label3.Caption);

calendar1 nesnesinin tarihini (ayını) DateTimePicker1 e eşitlemek ve bu ayın birinci gününden itibaren cumartesi pazarları işaretlemek istiyorum ve bunu yapıyorum ,
DateTimePicker1 in onclick olayına yazdım bu kodu. bir veya ikinci tıklayışta bi sorun yok ama üçüncü ve sonraki tıklamalarta bahsettiğim hatayı veriyor.. Daha basit veya mantıklı bi yolu varmı acaba.
Yani DateTimePicker1 den girdiğim tarihin ilk gününden son gününe kadar bi döngü oluşturmak için.

kolay gelsin....