Delphi-Quellcode:
// if what[i+1] = '' then // Die Bedingung ist in der Schleife nie erfüllt.
// i:= length(what)
// else
das wird nie erfüllt (auch außerhalb von Schleifen)
ein Zeichen (Char) kann nie mal
kein Zeichen (Leerstring) sein ...
und i+1 würde (jetzt wo du das Stingende korrigiert hast)
Delphi-Quellcode:
// String beginnt mit Index 1
// Das letzte Zeichen auch verschlüsseln
bis außerhalb des Strings reichen, also hinter den String zeigen ...
sozusagen auf
what[(Length(wath) + 1]