Объясните подробнее что хотите... Это?:
Код:
uses ..., DateUtils;
...
ShowMessage( IntToStr( DaysInYear( EncodeDate(2008,01,01) ) )); // 366 дней - високосный год
ShowMessage( IntToStr( DaysInYear( EncodeDate(2011,01,01) ) )); // 365 дней - обычный год
А то есть еще функция IsLeapYear (модуль SysUtils), которая просто скажет является ли данный год високосным.