Fehler in verschlüsselung

[ferby]

Hallo,

Ich habe eine Programm geschrieben das einen Text verschlüsselt.

Ein Teil des Programmes habe ich rausgeschrieben:

Delphi-Quellcode:

var
text1,text2,text3,buchstabenzahl,kurz2zahlen:string;
i,x,x2:integer;
begin
buchstabenzahl:='a000b001c002d003e010f011g012h013i020j021k022l023m030n031o032p033q100r101s102t103u110v111w112x113y120z121';
kurz2zahlen:='te103010231ch002013232ei010020233ie020010300tz103121301er010101302en010031303au000110310ck002022311ne031010312in020031313ge012010321st102103322';

text1:='test';

for i:=1 to length(text1) do
  begin

    // BUCHSTABEN

    x2:=2;
    for x:=1 to 26 do
    begin
      if text1[i]=chr(x+96) then text2:=buchstabenzahl[x2]+buchstabenzahl[x2+1]+buchstabenzahl[x2+2];
      x2:=x2+4
    end;

   text3:=text3 + text2;
   text2:='';

    end;

    text1:=text3;
    text3:='';

    // KÜRZUNG 2
    x2:=3;
    for i:=1 to 13 do
    begin
      text1:= StringReplace(text1, kurz2zahlen[x2]+kurz2zahlen[x2+1]+kurz2zahlen[x2+2]+kurz2zahlen[x2+3]+kurz2zahlen[x2+4]+kurz2zahlen[x2+5], kurz2zahlen[x2+6]+kurz2zahlen[x2+7]+kurz2zahlen[x2+8], [rfReplaceAll]);
      x2:=x2+11;
    end;

    edit1.text:=text1;
end;

ich hoffe ihr könnt nachvollziehen wie ca alles verschlüsselt wird.
der text in text1 wird verschlüsselt und am ende in edit1 ausgegeben.
es funktioniert alles so wie ich will, aber wenn text1:='ber' ist dann kommt im edit1: 030201 stadt 001302

das versteh ich nicht. alles anderen texte die ich bis jetzt ausprobiert habe werden richtig verschlüsselt nur wenn irgendwo 'ber' vorkommt dann nicht mehr, könnt ihr mir sagen wo der fehler liegt?