Un ejemplo de como marcar varios días, MC es el MonthCalendar.
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
aDias: array[1..31] of Word;
begin
end;
procedure TForm1.mcGetMonthInfo(Sender: TObject; Month: Cardinal;
var MonthBoldInfo: Cardinal);
begin
mc.BoldDays([1,8,15,22],MonthBoldInfo);
end;
Un Saludo.