помогите календарь delphi

[npizpak]

Ребята срочно нужна помощ в Delphi не шарю нужно зделать курсовик на завтра нужно зделать
обьясните пожалуйсто как непонимающему человеку как к календарю к определенным датам прикрепить праздники дни свадеб и т п .............
Помогите если не сложно...........

[danekne]

Создаем файлик текстовый или типовой, в котором к дате привязываем событие. Потом - обрабатываем его из программы

[npizpak]

Сообщение от danekne

Создаем файлик текстовый или типовой, в котором к дате привязываем событие. Потом - обрабатываем его из программы

а как в програмном коде это будет выглядеть???

[npizpak]

procedure OutHolidaysOnMonthCalendar(MC: TMonthCalendar;
                                     Holidays: array of TDate);
  var Y1,M1,D1,Y2,M2,D2,i: Word;
begin
  if Length(Holidays)>0 then
   begin
    MC.Repaint;
    McCanvas:= TControlCanvas.Create;
    try
     McCanvas.Control:= MC;
     McCanvas.Font.Color:= HoliFontColor;
     McCanvas.Brush.Color:= HoliBrushColor;
     DecodeDate(MC.Date,Y1,M1,D1); // текущая дата на календаре
     for i:=0 to Length(Holidays)-1 do
      begin
       DecodeDate(Holidays[i],Y2,M2,D2);
       if (M2=M1) and (Y2=Y1) then DayTextOnMonthCalendar(MC,D2);
      end;
    finally
     McCanvas.FreeHandle;
     McCanvas.Free;
    end;
   end;
end;

где тут ошибка блин ничего не получаецо помогите..........))