Verschlüsselung bzw. Entschlüsselung will nicht gelingen

[Faffy]

Ah, mir ist aufgefallen, was mein Fehler war.. Ich habe den Quelltext jetzt ein wenig überarbeitet, sodass folgendes entstanden ist:

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)
   Edit3.Text := TN;                                                            // TN = Neuer, entschlüsselter Text
end;

Und für die Methode:

Delphi-Quellcode:

Procedure TCaesar.B (Var T2 : String; T : 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;

Nun entschlüsselt er auch, jedoch wird nicht das entschlüsselt, was entschlüsselt werden soll. Er gibt nicht den Ausgangsbegriff wieder raus, sondern etwas völlig anderes. Aus "ttt" wird "MMM".