Text verschlüsseln

[ferby]

Hallo,

Ich habe ein Programm geschrieben das einen Text verschlüsseln soll:

Delphi-Quellcode:

    text2:='Das ist ein Testtext der verschlüsselt wird.';
    symbole1:=')ZDhSCfPwVaW+J>-rB[RF$UNg|';

     for i:=1 to 100 do
     begin
       for x:=1 to 26 do if text2[i]=chr(x+97) then hauptlabel3.caption:=hauptlabel3.caption + symbole1[x];
     end;
     end;

Der verschlüsselte Text soll dann in hauptlabel3.caption ausgegeben werden, es wird aber nur irgendein schwachsinn geschireben, was ist da falsch?
A soll ) sein B soll Z sein etc.

Ach ja statt i:=1 to 100 will ich i:=1 to länge(text2) schreiben, wie muss ich das schreiben?

Danke für eure Hilfe!
Ferby