Tópico: MonthCalendar Dia em Negrito

Obrigado pelo retorno,
ai esta meu codigo para darem uma olhada:

procedure TFPesquisaReserva.MonthCalendar1GetMonthInfo(Sender: TObject; Month: Cardinal;
  var MonthBoldInfo: Cardinal);
var
  aDias: array of cardinal; // array dinâmico
  nDia: word;
  nDiaString: string;

  function DiaOK: boolean; // sub-function para não duplicar o dia
  var
    i: integer;
  begin
    Result := True;
    if Length(aDias) > 0 then
      for i := 0 to High(aDias) do
        if aDias[i] = nDia then
        begin
          Result := False;
          exit;
        end;
  end;
begin
  SetLength(aDias, 0); // inicializo o array

  // filtro a tabela para listar somente os registros cuja data
  // corresponda ao mesmo mês e ano que estiver sendo exibido no calendário
  CDS_Pesquisa.Close;
  SQLDataSet_Pesq.CommandText := 'select data from reserva';
  CDS_Pesquisa.Open;

    // faço a varredura nos registros para 'pintar', no calendário, os dias necessários
    while not CDS_Pesquisa.Eof do
    begin
     nDiaString := FormatDateTime('dd',CDS_Pesquisa.FieldByName('DATA').AsDateTime);// obtém o dia da data
     nDia := StrToInt(ndiaString);

    if DiaOK then // verifica se pode incluir o dia no array (não repete o dia)
    begin
      SetLength(aDias, Length(aDias)+1); // incrementa o número de elementos no array
      aDias[High(aDias)] := nDia; // atribui o dia ao novo elemento do array
    end;
    CDS_Pesquisa.Next;
  end;