От доста време съм си направил една функция за определяне на максималния брой дни в месец в два варианта и не знам дали има готова (дори не съм и търсил). Всички константи ся декларирани в SysUtils.

Uses SysUtils
function MaxDayOfMonth(Year,Month:word):integer;Overload;
function MaxDayOfMonth(Date:TDateTime):integer;Overload;

function MaxDayOfMonth(Year,Month:word):integer;
begin
Result:=PDayTable(@MonthDays[IsLeapYear(Year)])^[Month];
end;

function MaxDayOfMonth(Date:TDateTime):integer;Overload;
var
Year,Month,Day:Word;
begin
DecodeDate(Date,Year,Month,Day);
Result:=MaxDayOfMonth(Year,Month);
end;