IdMonthNames: array[0..IdMonthsInYear] of string  = ( '', SLongMonthNameJan, SLongMonthNameFeb, SLongMonthNameMar, SLongMonthNameApr, SLongMonthNameMay, SLongMonthNameJun, SLongMonthNameJul, SLongMonthNameAug, SLongMonthNameSep, SLongMonthNameOct, SLongMonthNameNov, SLongMonthNameDec );