一段java代码 转成delphi代码 ,谢谢.50分.~大家帮个忙~~

Question

我看到段代码想转换成DELPHI的代码.以下这段代码转换成DELPHI的方法应该怎么写?~~谢谢各位大虾帮个忙~~ 
private String setEn pt(String str,String key){ 
int ch = str.length(); 
char[] sIn = str.toCharArray(); 
char[] sKey = key.toCharArray(); 
int out; 
char[] chO = new char[ch]; 
for (int i = 0; i < ch; i++) { 
// 对换行符进行判断 if (i < sKey.length) { 
out = (sIn[i] ^ sKey[i]); 
chO[i] = (char) out; 
} else { 
out = sIn[i] ^ sKey[sKey.length - 1]; 
chO[i] = (char) out; 
} 
} 
return String.valueOf(chO); 
    } 

Answer 1

function setEnpt(str:string;key:string):string;
var
  i: integer;
begin
  setlength(Result,length(str));
  for i:=1 to length(str) do
  begin
    if i<length(key) then
      Result[i]:= char((ord(str[i]) xor ord(key[i])))
    else
      Result[i]:= char(ord(str[i]) xor ord(key[length(key)]));
  end;
end;