Código:
function EsBisiesto(Agnus: Integer): Boolean;
begin
Result :=
((Agnus mod 4) = 0) // es múltiplo de 4
and
(
(Agnus mod 400 = 0) or// a menos que también de 400
(Agnus mod 100 <> 0) // pero no de 100
);
end;
Poniéndolo en latín funciona, jeje.