[roman]

Una alternativa:

Código Delphi [-]
function GetCharCode(Ch: Char): Integer;
begin
  if Ch in ['ñ', 'Ñ'] then Dec(Ch);
  Result := ((Ord(UpCase(Ch)) - Ord('A')) mod 9) + 1;
end;