???有谁能把这个函数改成DELPHI的函数吗???--不胜感激 ??? ( 积分: 50 )

PB函数
integer i
integer j
string vs1
string vs2
string vs
vs1 = f_rtol(sstr)
vs2 = f_rtol(skey)
j = 1
vs = ""
for i = 1 to len(sstr)
vs = vs + char(asc(mid(vs1,i,1)) + asc(mid(vs2,j,1)))
if j >= len(skey) then
j = 1
else
j = j + 1
end if
next
return vs

--->>>以下为我转化的delphi函数
编译提示incompatible types错误——————？？？？？？？
Function f_code_ys(sstr,skey: string): String;
var vs1,vs2,vs:string; i,j: integer;
begin
vs1 := f_rtol(sstr);
vs2 := f_rtol(skey);
j := 1 ;
vs :='' ;
for i := 1 to length(sstr) do
vs:= vs+chr(ord(copy(vs1,i,1))+ord(copy(vs2,j,1)));
if j >= length(skey) then
j:= 1
else
j:= j+1;
end if
next ;
result:=vs;
end;

救救救救救我！！！！

有人会吗？

[red]f_rtol是什么函数？[/red]
Function f_code_ys(sstr,skey: string): String;
var vs1,vs2,vs:string;
i,j: integer;
begin
vs1 := f_rtol(sstr);
vs2 := f_rtol(skey);
j := 1 ;
vs :='' ;
for i := 1 to length(sstr) do
begin
vs:= vs+chr(ord(vs1)+ord(vs2));
if j >= length(skey) then
j:= 1
else
j:= j+1;
end;
end;
result:=vs;
end;

是我转化后的函数，，

哦，，对不起，，哪个函数没有错
Function f_rtol(sstr: string): String;
var vs:string;
i: integer;
begin
for i:=length(sstr) downto 1 do
begin
vs:= vs + copy(sstr,i,1) ;
end;
result:= vs;
end;

错在什么怎么修改啊，？？
procedure TForm1.BitBtn4Click(Sender: TObject);
var ss:string;
begin
ss:=edit11.text;
edit13.Text:=chr(ord(copy(ss,1,1));
//编译提示incompatible types错误——————？？？？？？？
end;

edit13.Text:=ss[1];

procedure TForm1.BitBtn4Click(Sender: TObject);
var ss:string;
begin
ss:=edit11.text;
edit13.Text:=chr(ord(ss[1]));
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
edit13.Text:=edit11.text[1];
end;