声明：function IsLeapYear ( const Year : Word ) : Boolean;描述：如果给定的日历值是闰年，则IsLeapYear返回True。参数值范围为：0-9999。begin if IsLeapYear(2000) then ShowMessage('2000 was a leap year') else ShowMessage('2000 was not a leap year');end;程序运行结果：2000 was a leap year