MonthCalendar + BoldDays

[FlinkerFinger]

hups hab noch was vergessen zu fragen ...
bei mir geht das mit dem bolten nicht ... ich wollte das mit nem array machen , sprich tage da in ein array packen und dieses array dann bolten lassen hier der code was ist daran falsch

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
VAR i,k,j: INTEGER;
    datum2  : STRING;
    bolting : ARRAY[1..30] of cardinal;
begin
  i := 0;
  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 = datum then
       inc(i);
       bolting[i] := strtoint(datum2);
     Table1.next;
     end;
     MonthCalendar1.BoldDays([bolting],MonthBoldInfo);

[edit=Sharky]Delphi-Tags korrigiert. Mfg, Sharky[/edit]