danilo, te falta un ";" después de "Boolean"
Además, esa función no funciona (¿paradoja?
), porque Delphi no sabe lo que es "Anno". La función verdadera es esta:
Código Delphi
[-]
Function EsBisiesto(Anno: Cardinal): Boolean;
begin
Result := not CompareDates(DateByParts(29, 2, Anno), DateByParts(1, 3, Anno));
end;
Notas: la función CompareDates compara dos fechas, para saber si son la misma o no. La función DateByPart toma el día, mes y año, de tipo entero, y devuelve un TDate.
Salu2
P.D.: Esta fecha (la de hoy) me recuerda algo... no sé qué es...