请高手指点！！！十六进制保存问题！(15分)

我读出由以太网传来的十六进制数据，但是保存出来的数据都不对，请各位指教小弟。
var str:string;
pbbyte;
fs:tmemorystream;
begin
str:=idtcpclient.currenreadbuffer;
getmem(pb,length(str));
zeromemory(pb,length(str));
pb:=pbyte(str);
fs:=tmemorystream.creat;
fs.setsize(length(str));
fs.writebuffer(pb,length(str));
fs.savetofile('bb.bin');
end;
保存后的确出现了bb.bin，但是数据不正确，该怎么保存十六进制的数据啊？？
请各位指教！！

inttohex();转为十六进制的字符串保存

我本来就是要保存16进制的文件，bin文件

接受答案了.