Converter essa função

const Masc=2; 
function PacoteEncrypt(Texto: String):String; 
var 
  r : string; 
  i : integer; 
begin 
   For i := 1 to Length(texto) do 
     r := r + chr(Ord(Texto[i]) + i + Masc); 
   result:= r; 
end;

 const int Masc =2; 
   string r; 
   int i; 
   string texto; 

   for (i = 1; i=texto.length(); i++) 
   { 
   r = r+char(Ord(texto(i) + i + Masc));