Название месяца
function MonthToStr(Month: Integer): String;
месяц надо брать из системы....
а чем тебя datetostr не устраивает с параметром mmmm ????
FormatDateTime('mmmm', EncodeDate(1900, Month, 1));
Вообще-то, в SysUtils описаны переменные LongMonthNames[] и ShortMonthNames[] - только память занимают.