[delphi.com.ar]

Yo tambien quiero:

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];