[Neftali [Germán.Estévez]]

(1) Intenta poner las prefuntas en el foro correspondiente, por favor (no acabo de entender porqué la has puesto en el foro de Internet).
(2) Revisa la ayuda sobre la función YearOf

Código Delphi [-]
  any := YearOf(Now());