Функция IsLeapYear – возвращает True, если данный календарный год високосный

Функция IsLeapYear в Delphi возвращает True, если данный календарный год високосный.

Функция IsLeapYear: Проверяем был ли 2000 год високосным?

begin
  if IsLeapYear(2000)
  then ShowMessage('2000 был високосным годом')
  else ShowMessage('2000 не был високосным годом');
end;