加密问题 ( 积分: 50 )

请各位帮忙看看下面的语句哪儿有问题:
Function TAbouts.Encrypt(TempStr:string):string;
Var
Str1:String;
olestrwidechar;
i,j:Integer;
Begin
Str1:='';
For i:=1 to Length(TempStr) do
begin
j:=(i+i+i+i mod (i+3))+(i+i mod (i+2))+i+3+1;
Str1:=Str1+chr(ord(TempStr)+j);
//i:=i+1;
End;
Result:=Str1;
end;
请各位大侠帮帮忙

请各位帮忙看看下面的语句哪儿有问题:
Function TAbouts.Encrypt(TempStr:string):string;
Var
Str1:String;
olestrwidechar;
i,j:Integer;
Begin
Str1:='';
For i:=1 to Length(TempStr) do
begin
j:=(i+i+i+i mod (i+3))+(i+i mod (i+2))+i+3+1;
Str1:=Str1+chr(ord(TempStr)+j);
//i:=i+1;
End;
Result:=Str1;
end;
请各位大侠帮帮忙

Function TAbouts.Encrypt(TempStr:string):string;
Var
Str1:String;
olestrwidechar;
i,j:Integer;
Begin
Str1:='';
For i:=1 to Length(TempStr) do
begin
j:=(i+i+i+i mod (i+3))+(i+i mod (i+2))+i+3+1;
Str1:=Str1+chr(ord(TempStr)+j);
//i:=i+1;
End;
Result:=Str1;
end;

谢谢!太谢谢您了!!!