Problem z Edit ;(

Jak mam napiac procedurke i gdzie bo chce uzyskac taki rezultat jak:

Mianowicie wpisując w np. Edit1 jakis text np. BABA i ten text ma być zdekodowany według nastepujacego kodowania:
A = 11
B = 12
C = 13
... itd. :)

czyli w Edit2 text ma byc taki: 11 12 11 12 i jak ja mam to zrobic?

Probowalem juz w OnKeyPress w Edit1 wpisac cos takiego

if key = 'A' then Edit2.Text := Edit2.Text + '11';
if key = 'B' then Edit2.Text := Edit2.Text + '12';

ale jak chce zmienic np. literke w srodku to juz to nie dziala albo jak sie pomyle :-( najlepij to chyba po nacisnieciu Button1 jak juz jest napisane to co chcemy w tym Edit1 ale jak mam rozbic text w Edit1 na poszczegolne literki, znaki i je porowanac ??? to juz nie wiem

Wielkie dzieki za jakac pomoc mile widziane jet jakies rozwiazanie (kodzik) jak t ozrobic etc. jest mi to bardzo potrzebne.

Za pomoc staw2iam [browar] :d

//ten tytuł nic nie wnosi - wymyślaj bardziej opisowe - m.M

s:=Edit1.Text;
Edit1.Text:='';
for i:=1 to length(s) do 
    if(s[i]>='A')and(s[i]<='Z')then Edit1.Text:=#32+inttostr(byte(s[i])-65+11);

// dopisane za sposobem Dominika...
var i:char;

for i:='A' to 'Z' do
Edit2.Text:=StringReplace(Edit1.Text, i, inttostr(byte(i)-65+11), [rfReplaceAll]);

Edit2.Text := StringReplace(Edit1.Text, 'A', '11', [rfReplaceAll]);
Edit2.Text := StringReplace(Edit1.Text, 'B', '12', [rfReplaceAll]);
...

Od razu mówie, że w drugą stronę (11>A itp.) to nie zadziała.