Pegar valores também das letras acentudas

[aacs]

Precisaria pegar  valores das letras acentuadas ela retorna um valor diferente apenas para as acentudas, as sem acentos ela funciona certinho.

E não tem problema se for uma outra função diferente dessa, desde já agradeçido.







obrigado!

Code: Pascal  [Select][+][-]

1. function valor(Str:String):String;
2. const
3. Lin1:String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÆÁÂÅÃÄáâæàåãäÉÊÈÍÎÌÏÇÓÔÒØÖÞÚÛÙÜæáâåãäáâæàåãäéêèíîìïçóôòøöþúûùü';
4. Lin2:String = '123456789123456789123456781234567891234567891234567811111111111115559999366666633331111111111111555999936666663333';
5.  
6. var
7. x,y:integer;
8. begin
9.    Result:='';
10.    for y:=1 to Length(Str) do
11.      begin
12.        x:=0;
13.        repeat x:=x+1;
14.        until Str[y]=Lin1[x];
15.        Result:=Result+Lin2[x]
16.      end;
17. end;
18.  
19. procedure TForm1.Edit1Change(Sender: TObject);
20. begin
21.    Memo1.clear;
22.    Memo1.text:=(valor(Edit1.Text));
23. end;

[Edited to add code tags :-]