даты в календаре (NEW)

procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
    Form1.MonthCalendar1.Visible := False;
    Form1.MonthCalendar1.Date:=Form1.MonthCalendar1.Date - 365;
    Form1.MonthCalendar1.Date:=Form1.MonthCalendar1.Date + 365;
    Form1.MonthCalendar1.Visible := True;
end;

procedure Form1_MonthCalendar1_OnGetMonthBoldInfo (Sender: TObject; Month, Year: Cardinal; var MonthBoldInfo: Cardinal);
var
    AStr: array of string;
    AByte: Array of byte;
    sMonth, s: string;
    i, c: integer;
begin
    sMonth := IntToStr(Month);
    if Length(sMonth)=1 then sMonth := '0' + sMonth;

    s := SQLExecute( 'SELECT group_concat(strftime(''%d'', "DateField"), ",") FROM booking WHERE strftime(''%m.%Y'', "DateField")="'+sMonth+'.'+IntToStr(Year)+'"' );  //

    if s <> '' then
    begin
            AStr := SplitString(s, ',');
            SetLength(AByte, Length(AStr));
        
            c := Length(AByte)-1;
            for i := 0 to c do
                if ValidInt(AStr[i]) then AByte[i] := StrToInt(AStr[i]) else AByte[i] := 0;

            TdbMonthCalendar(Sender).BoldDays(AByte, MonthBoldInfo);
    end;
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    Form1.MonthCalendar1.Date := EncodeDate(2018, 05, 1);
end;

s := SQLExecute( 'SELECT CONCAT_WS(",", DATE_FORMAT(`DateField`, "%e")) FROM booking WHERE DATE_FORMAT(`DateField`, "%m.%Y")="'+sMonth+'.'+IntToStr(Year)+'"' );