[marcoszorrilla]

 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.