Для английского может быть и типа этого пойдет :
Код:
function GetOrderChar(Ch : char) : byte;
Var
S : string;
begin
S:=Ch;
S:=AnsiUpperCase(S);
Ch:=S[1];
Result:=ORD(Ch)-ORD('A')+1;
end;
Но в общем случае (с заранее неизвестной кодировкой и алфавитом) - проблематично.