Модуль: SysUtils

Описание
Функция определяет, является ли високосным год, указанный в параметре Year. Если год високосный, то функция возвращает True, а иначе - False.

Пример
var
   S: string;
   Year,Month,Day: Word;
begin
   DecodeDate( Date, Year, Month, Day);
   If IsLeapYear(Year) then S:= 'високосный'
   else S:='не високосный';
   MessageDlg( 'Текущий год - '+ S, mtInformation, [mbOk], 0);
end;