[[basti]]

Modificando un poco la función

Código Delphi [-]
function AnnoALetra(Anno: integer): string;
const
 LETRAS = 'KLMNPRSTVXZABCDEFHJ';
var dif: integer;
begin
  // para los años mayores de 2000
 if anno - 2000 >= 0 then
   dif := (Anno - 2000) mod 19 + 1
 else
   dif := 19 - (2000 - Anno) mod 19;
 result := LETRAS[dif];
end;

No lo probé pero creo que la solución va por ahí.

Edito: el número de letras son 19 así que cambié algo