Verschlüsselung bzw. Entschlüsselung will nicht gelingen

[Uwe Raabe]

Das sind doch die relevanten Stellen:

Delphi-Quellcode:

  Code := Code - Z;
  If (Code > 122) Then
    Code := Code - 26;

Delphi-Quellcode:

  Code := Code + Z;
  If (Code < 122) Then
    Code := Code + 26;

Überleg dir mal, warum bei der Verschlüsselung die IF-Abfrage kommt und was sie bewirkt. Dann überleg mal, wie dieser Vorgang rückgängig gemacht werden muss. Dann siehst du auch, was bei der Enschlüsselung falsch läuft.