DELPHI高人，简单C#代码，怎么用DELPHI来写

在线等DELPHI高人，简单C#代码，如何用DELPHI来写？
 public string decode(string str)
        {
            string dtext = "";

            for (int i = 0; i < str.Length; i++)
            {
                dtext = dtext + (char)(str[i] - 10 + 1 * 2);
            }
            return dtext;
        }

这是C#代码，一个函数，如何用DELPHI写出这个函数来？在线结贴
------解决思路----------------------
function decode(str: string): string
var
  I: integer;
begin
  result := '';
  for i:=1 to str.length do
  begin
    result := result + char(ord(str[i])-10+1*2);
  end;
end;

------解决思路----------------------

function Decode(Str: string): string;

var I: integer;

    S:string;

begin

  result := '';

  for I:=1 to length(Str) do

    S := S + Char(ord(Str[i])-10+1*2);

  result := S;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  Edit2.Text:=decode(Edit1.Text);

end;

已检测通过。