// Verschlüsseln
procedure TForm1.VerschlButtonClick(Sender: TObject);

var geheim, klar, check, S:string;
var laenge,i,p,Aklar:integer;
var ageheim:integer;



begin

//Eingabe
  klar:=Memo1.text;
  memo2.clear;
  laenge:=length(klar);

//Zeichen Überprüfung
  check:=klar;
  check := UpperCase(Klar);
  check:= StringReplace(check,' ','',[rfReplaceAll]);
    for p := 1 to Length(check) do
        begin
          if not (check[p] in ['A'..'Z']) then
            begin
              ShowMessage('Der Text darf nur Klein- und Großbuchstaben enthalten. (keine Umlaute)');
              Memo1.Clear;
              Memo2.clear;
              break;
            end
              else
                  begin

//Verschlüsselung wird gestartet
  for i:=1 to laenge do                               // Initialisieren der Schleife um die einzelnen Zeichen umzuwandeln
    begin
        aklar:=ord(klar[i]);                          // Umwandeln der Zeichen in Ordinalzahlen

          case aklar of
            32:ageheim:=32;                           // Leerzeichen bleibt erhalten
            65:ageheim:=89;                           // Sonderfall für Buchstaben A
            66:ageheim:=90;                           // Sonderfall für Buchstaben B
            67..90:ageheim:=aklar-2;                  // Reihe der Buchstaben C bis Z
            97:ageheim:=121;                          // Sonderfall für Buchstaben a
            98:ageheim:=122;                          // Sonderfall für Buchstaben b
            99..122:ageheim:=aklar-2;                 // Reihe der Buchstaben c bis z
                 end;

//Ausgabe in Geheimschrift
  geheim:= chr(ageheim);                              //Umwandlung der Ordinalzahlen in Zeichen
  Memo2.text:=(geheim)+ (memo2.text) ;                // Gespiegelte Ausgabe des Geheimtextes


      end;
            end;
                  end;
                        end;