Dll + função

E ai galera tenha a seguinte função:

function Tcripto.Criptografar(Texto: String):String;

const

masc=257;

var

 r : string;

 i : integer;

begin

For i := 1 to Length(texto) do

r := r + chr(Ord(Texto) + i + Masc);

result:= r;

end;

coloco numa dll e sempre retorna um erro será que vcs podiam me ajudar.....

Muito Obrigado...