MonthCalendar1.BoldDays mit variablen

[FlinkerFinger]

HuHu,

ich habe das Problem, dass ich in einem ARRAY gespeicherte Integerwerte als Bolt in meinem kalender schreiben lassen mochte ... das geht so wie ich es gemacht habe aber leider nicht =(

hier mal der code

Delphi-Quellcode:

procedure TForm1.MonthCalendar1GetMonthInfo(Sender: TObject;
  Month: Cardinal; var MonthBoldInfo: Cardinal);
VAR i,j: INTEGER;
    datum2  : STRING;
    bolting : ARRAY[1..30] of integer;
begin
  Datum := datetostr(MonthCalendar1.Date);
  monat := datum[4] + datum[5];
  edit1.Text := monat;

     while not Table1.eof do
      begin
       datum2 :=  Table1.FieldByName('Datum').AsString;
       datum2 := datum2[4] + datum2[5];
         if datum2 = monat  then
           begin
            inc(b);    //wird auf null gesetzt und das klappt auch alles
            bolting[b] := strtoint(datum2);
           end;
       Table1.next;
      end;
     MonthCalendar1.BoldDays([bolting],MonthBoldInfo);
end;

bin für jede hilfe dankbar =D