Verschlüsselung bzw. Entschlüsselung will nicht gelingen

[Faffy]

Ich lege einfach mal alles genauer dar.

Verschlüsselungsbutton:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var T,T2 : String;
    Z  : Integer;

begin
  T := Edit1.Text;
  Z:= 7;
  C.A(T,T2,Z);
  Edit2.Text := T2;
end;

Verschlüsselungsmethode:

Delphi-Quellcode:

Procedure TCaesar.A (T : String; Var T2 : String; Z : Integer);                 // T = Zu verschlüsselndes Wort, T2 = Verschlüsseltes Wort, Z = Irrelevant (Zahl, um die verschoben wird, ist aber nicht angegeben)
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);                           // B2 = Verschlüsselter Buchstabe
                                    T2 := T2 + B2;                              // T2 = Verschlüsselter Text
                                End;
                                End;

Entschlüsselungsbutton:

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;

Entschlüsselungsmethode:

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;