Если я правильно понял, то функция должна вернуть последнее воскресенье месяца в заданном году, как дату?
Тогда так можно:
Код:
function GetLastSunday(Year: Integer; Month: Integer): TDate;
begin
try
Result := EncodeDayOfWeekInMonth(Year, Month, 5, 7);
except
Result := EncodeDayOfWeekInMonth(Year, Month, 4, 7);
end;
end;