[chaosego]

para calcular si el año es bisiesto, puedes usar la función IsLeapYear [ function IsLeapYear( Year: Word ): Boolean; ].

Todas las funciones de manejo de fechas estan muy bien explicadas en este enlace de Delphi al Límite.