[[Chris]]

Lo puedes hacer con la función YearOf. Creo que esta función está en la unidad DateUtils. Si así es, deberás agregar esta unidad a la sección uses de la unidad.
EJEMPLO:

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

Es así de simple.

Saludos,
Chris