Delphi - Calcular el año bisiesto

Es par aun trabajo debo de calcular el Año bisiesto lo he intentado como aprendí pero nada, necesito ayuda...

Buenas,
es tan sencillo como calcular el modulo 4 del año, si vale 0 es bisiesto.

if (Anio mod 4)=0 then bisiesto := true;

Saludos

Hay una función para eso, de memoria creo que es
IsLapYear(anio);
Deberás añadir en el uses de la Unidad principal DateUtils
Ej.

unit UContabilidad;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Grids, DBGrids, DateUtils;