Verschlüsselung bzw. Entschlüsselung will nicht gelingen

[Faffy]

Hey folks,

folgendes Problem beschäftigt mich nun bereits seit einigen Tagen.
Ich habe versucht ein Programm zu schreiben, welches individuell gewählte Worte verschlüsselt, indem man jeden Buchstaben des zu verschlüsselnden Wortes und einen gewissen Wert verschiebt. Die Verschlüsselung an sich funktioniert auch reibungsfrei, jedoch die Entschlüsselung soll das Wort wiederherstellen. Wenn ich den Button für die Entschlüsselung jedoch betätige, so bleibt das Feld leer. Ich habe einmal vor dem Betätigen des Buttons etwas in das Edit-Feld hinein geschrieben, in das der entschlüsselte Text eingefügt werden soll. Lustiger Weise wird alles, was sich in dem Feld befindet einfach gelöscht.

Hier einmal die Procedure des Buttons:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
 var T, TN              : String;
     Z                  : Integer;
begin
   T := Edit2.Text;                                                             // T = Verschlüsselter Text, der entschlüsselt werden soll
   Z := 7;                                                                      // Z = Wert, um den der Buchstabe verschoben wird
   C.B(TN,T,Z);                                                                 // C = Klasse TCaesar (Global deklariert), B = Methode zur Entschlüsselung
   Edit3.Text := TN;                                                            // TN = Neuer, entschlüsselter Text
end;

Und hier die Procedure der Entschlüsselungsmethode:

Delphi-Quellcode:

Procedure TCaesar.B (Var T : String; T2 : String; Z : Integer);
Var
 P, Code : Integer;                                                             // P = Länge des Wortes, Code = Verschlüsselungscode
 B       : String;                                                              // B = Buchstabe des Wortes
 B2      : Char;                                                                // B2 = Verschobener Buchstabe
Begin
For P := 1 to Length(T) Do
                                Begin
                                  B := Copy(T,P,1);
                                    Code := ORD(B[1]);
                                    Code := Code + Z;
                                    If (Code < 122) Then
                                                     Code := Code + 26;
                                    B2 := Char(Code);
                                    T2 := T2 + B2;
                                End;
                                End;

Ich hoffe ihr werdet mir helfen können.
Gruß
Faffy