我需要对一个含汉字的字符串进行XOR 加解密
但是字符没问题，碰到汉字好像不太对，大家帮我看一下程序
var i:integer;
     s:string;
s:='hello 你好'
for i :=1 to length(s) do
   begin
     s2:=s2+inttohex(byte(s[i]) xor $58,2)
   end;
好像是汉字有双字节的缘故，不知有什么好的办法实现加解密