No la he probado... yo me estoy imaginando algo como esto:
EDITO:
Código Delphi
[-]
function TForm1.AnnoALetra(Anno: integer): string;
const
LETRAS = 'KLMNPRSTVXZABCDEFHJ';
var dif: integer;
begin
dif := Anno mod 2000; id Dif = 0
then Dif = 1;
result := LETRAS[(dif div Length(LETRAS))];
end;
Ahora si debería andar.
Saludos,