16进制编码的读取、比较、输出问题 (50分)

index.dat文件用HEdit显示：
00000000 B0 A1 01 00 00 00 00 00 B0 A2 01 00 00 00 00 00 B0 A3 01 00
00000015 01 00 01 00……
0000002A ……
设置：HEdit/view/options/address:hex; show characters 0x80-0x ; fixed columns:8显示：
00000000 B0 A1 01 00 00 00 00 00 啊
00000008 B0 A1 O1 OO OO OO OO OO 阿
……
00000058 B0 AC 04 00 01 00 04 00 艾
现在，在DEPHI的 文本诓中输入一个中文，比如“乂”，在index.dat中查找与它相同读音的“艾”，
若找到了，则在末尾插入“乂”的编码＋04 00 01 00 04 00
该如何？
谢先！！

Var
stream.TFileStream
S:String;
Str1:Char;
Str2:Char;
begin
S:='乂';
While stream.Position < stream.size do
begin
stream.ReadBuffer(str1,1);
stream.ReadBuffer(str2,1);
if (str1=Byte(S[1])) and (str2=Byte(S[2])) then Break;
end;
...
end;

var
f1:TFileStream;

begin
try
f1:=TFileStream.Create('./IndexEx.dat',fmCreate);
finally
FreeAndNil(f1);
end;
end;
并不生成文件IndexEx.dat呢？？

I'm sorry.

接受答案了.