请教字符编码问题，字体库，东巴文！

[subhell]

我制作用Font Creator Program了一个东巴像形文字字体库，有一千多个字符，想配套做一个输入法，但是不知道怎么调用字体库里的字符。（字体库每一个字符都做了映射，映射的格式为：$FFFF）
我做了一下试验：
function ChnCharToRTFCode(Ch: TChnChar): string;
var
C1, C2: Char;
O1, O2: Byte;
S: String;
begin
C1 := Ch[1];
C2 := Ch[2];
O1 := Ord(C1); //第一个字节
O2 := Ord(C2); //第二个字节
S := Format('%2X', [O1]) + Format('%2X', [O2]);
Result := S;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ChnCharToRTFCode('啊'));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
S: String;
begin
SetLength(S, 2);
// S:=Chr($13);
S[1] := Chr($B0);
S[2] := Chr($A1);
ShowMessage(S);
end;

汉字中“啊”的编码为：B0A1
而在仿宋体字库中的映射为：$554A
我东巴字库的映射用的是第二个类型，所以没有办法往下做了。
请教各位达人，我的方法什么地方出错了，应该怎么做？还是我本来的想法就是错的？？请不惜赐教～～谢谢！