Yo tambien quiero: :p

Código Delphi [-]
const
   LETRAS = 'DEFHJKLMNPRSTVXZABC';
begin
   Result := LETRAS[(MyYear) mod 19 + 1];

Otra aún mas simple:

Código Delphi [-]
const
  LETRAS : array[0..19] of char = 'DEFHJKLMNPRSTVXZABC';
begin
  Result := LETRAS[(MyYear) mod 19];