TMonthCalendar + Tage Fett markieren + Schleife

[PTB]

Hallo zusammen,

ich bin neu in diesem Forum und nicht sicher ob ich das richtige "Abtei" benutze ,falls nicht sry.

Nun zu meinem Problem:

Ich benutze (wie oben im Titel erwähnt) die Komponente TMonthCalendar und möchte bestimmte Tage, welche ich aus einer Datenbank beziehe Fett markieren.
Das klaptt soweit auch, allerdings haben ich das Problem das ich wenn ich das Schleifen basierend mache (da ich ich immer eine unbestimmte menge an Tagen nacheinander habe aber nie mehr als 15) das diese nicht Fett dargestellt werden.

Hier mal der Code damit ihr meine Problematik besser nachvollziehen könnt:

Delphi-Quellcode:

procedure TFormHotelbuchungsassistent.MonthCalendar1Click(Sender: TObject);
var
  sl_date: TStringList;
  s_day: string;
  s_year: string;
  s_sql: string;
  i_i1: integer;
  i_anzahl_tage: integer;
  i_i2: integer;
  MonthBoldInfo: Cardinal;
begin

  sl_date := TStringList.Create;
  sl_date.Delimiter := '.';
  sl_date.StrictDelimiter := True;
  sl_date.DelimitedText := DateToStr(MonthCalendar1.Date);

  s_day := sl_date[0];
  s_month := sl_date[1];
  s_year := sl_date[2];

  s_sql := 'SELECT datum_start,buchungszeitraum FROM hotelbuchungsassistent.buchung WHERE EXTRACT(MONTH FROM datum_start) = '
    + s_month;

  PSQLQuery1.Close;
  PSQLQuery1.SQL.Clear;
  PSQLQuery1.SQL.Add(s_sql);
  PSQLQuery1.Open;

  for i_i1 := 0 to PSQLQuery1.RecordCount - 1 do
  begin
    sl_date.DelimitedText := PSQLQuery1.FieldByName('datum_start').AsString;

    i_start_datum := StrToInt(sl_date[0]);
    i_anzahl_tage := PSQLQuery1.FieldByName('buchungszeitraum').AsInteger;

    for i_i2 := i_start_datum to (i_anzahl_tage + i_start_datum) - 1 do
    begin
      SetLength(a_day, Length(a_day) + 1);
      a_day[Length(a_day) - 1] := i_i2;
    end;
  end;
  MonthCalendar1GetMonthInfo(MonthCalendar1, StrToInt(sl_date[1]),
    MonthBoldInfo);
end;

procedure TFormHotelbuchungsassistent.MonthCalendar1GetMonthInfo
  (Sender: TObject; Month: Cardinal; var MonthBoldInfo: Cardinal);
begin
  if Length(a_day) <> 0 then
  begin
    MonthCalendar1.BoldDays(a_day, MonthBoldInfo);
    SetLength(a_day, 0);
  end;
end;

Falls unklarheiten vorhanden sind einfach sagen , ich drücke mich gern mal etwas ungenau aus.

Danke im vorraus

ps: Bin auch noch anfänger also bitte seid gnädig