Delphi, Mi a Hiba a függvényben?

function Crypt(Username:string);

var

length1,i,count:integer;

begin

Username:=LowerCase(Username);

count:=1;

length1:=Length(Username);

for i:=1 to length1 do begin

case Username[count] of

'a' : Username[count] :=IntToStr(1);

'b' : Username[count] :=IntToStr(2);

'c' : Username[count] :=IntToStr(3);

'd' : Username[count] :=IntToStr(4);

'e' : Username[count] :=IntToStr(5);

'f' : Username[count] :=IntToStr(6);

'g' : Username[count] :=IntToStr(7);

'h' : Username[count] :=IntToStr(8);

'i' : Username[count] :=IntToStr(9);

'j' : Username[count] :='z';

'k' : Username[count] :='y';

'l' : Username[count] :='x';

'm' : Username[count] :='w';

'n' : Username[count] :='v';

'o' : Username[count] :='u';

'p' : Username[count] :='t';

'q' : Username[count] :='s';

'r' : Username[count] :='r';

's' : Username[count] :='q';

't' : Username[count] :='p';

'u' : Username[count] :='o';

'v' : Username[count] :='n';

'w' : Username[count] :='m';

'x' : Username[count] :='l';

'y' : Username[count] :='k';

'z' : Username[count] :='j';

'0' : Username[count] :='i';

'1' : Username[count] :='h';

'2' : Username[count] :='g';

'3' : Username[count] :='f';

'4' : Username[count] :='e';

'5' : Username[count] :='d';

'6' : Username[count] :='c';

'7' : Username[count] :='b';

'8' : Username[count] :='a';

'9' : Username[count] :=IntToStr(0);

end;

end;

Idáig meg van, de nem csinál semmit ha lefut, azt szeretném elérni, hogy a karaktereket kicserélje más karakterekre, és számokra. Mi a teendő?