哦，这个加密和解密字符串的程序在98和xp系统下，运行结果不一样的，如何解决？？？急！！！

Question

我在xp中运行这个程序，加密后，再解密出现乱码，
而在win98中运行正常，加密和解密正常，没有出现乱码，
这是什么原因呀？？？？？代码如下：function TForm14.Destring(const s: string; key: word): string;
var
  i:byte;
begin
  result:='';
  for i:=1 to length(s) do begin
    result:=result+char(byte(s[i]) xor (key shr 8));
    key:=(byte(result[i])+key)*52845+22719;
  end;end;function TForm14.EnString(const s: string; key: word): string;
var
  i:byte;
begin
  result:='';
  for i:=1 to length(s) do begin
    result:=result+char(byte(s[i]) xor (key shr 8));
    key:=(byte(s[i])+key)*52845+22719;
  end;end;