Und wenn man c nicht als String, sondern als Char deklariert, lässt sich sogar case verwenden.
Delphi-Quellcode:
var c: char;
...
c := Upcase(h[a]); //vorsichtshalber in Großschreibung wandeln
case c of
'A': d := 10;
'B': d := 11;
//usw.
end;
Es geht natürlich auch noch kürzer und einfacher mit Ord(), aber ich lass das erstmal so stehen.