字符串加密函数为什么在Delphi2009中不能正常使用？

我有个简单的字符串加密函数，在Delphi7中能正常使用，但在Delphi2009中无法正常使用，经加密解密后的文字跟原来的不一样。不知道该怎么做，请帮忙！代码如下：

//加密解密函数
function DenCrypt(Str:string;Key:string):string;
var
X,Y : Integer;
A : Byte;
begin
if Key= '' then
Key := 'd1duOsy3n6qrPr2eF9u';
Y:= 1;
for X :=1 to length(Str) do begin
A :=(ord(Str[X]) and $0f) xor (ord(Key[Y]) and $0f);
Str[X] := char((ord(Str[X]) and $f0)+A);
inc(Y);
if Y > length(Key) then
Y := 1;
end;
Result:=Str;
end;

//调用
procedure TMainForm.JIAMIClick(Sender: TObject);
var
a:string;
begin
a:=inputbox('请输入密码！','密码:','');
memo1.text:=DenCrypt(memo1.Text,a); //a 表示key (密码）
end;

求ASP字符串的加密解密函数 c语言中gets（）在函数中时，为什么不等输入字符串就往下运行？ C#字符串加密 C语言如何在两个函数之间传送字符串 VB函数问题，在一字符串中找某一个字符 编写一个C函数,查找字符串中的子字符串,并返回这个字符串在原串中的起始位置. VB中在指定字符串中查找子字符串的函数是什么？ excel 字符串查找函数 编写连接字符串函数。 C++逆序字符串函数？