Obtener el año de la fecha actual

[VolaRe]

Puedes extraer los valores de una fecha y pasarlos a una variable y despues manejas la variable como quieras

Código Delphi [-]
var 
  Dia, Mes, Año: Word;
  Hoy: TDateTime;
begin
  Hoy := Now;
  // Ahora extraemos los valores de "Hoy"
  DecodeDate(Hoy, Año, Mes, Dia);
 // Y a partir de ahora podemos manejar esos valores como queramos
end;

Si miras en la ayuda de delphi tambien esta muy bien explicado, busca la funcion DecodeDate().