[shoulder]

Gracias a todos , tema solucionado, hice un mezcla de lo explicado por todos ustedes y anda perfecto.

previamente prefijando un mes


if monthof(MonthCalendar1.Date) <> Month then
Month := MonthOf(MonthCalendar1.Date)
else
MaskEdit1.Text := datetostr(MonthCalendar1.Date);