Das Demo arbeitet korrekt, Anzeige macht natürlich bei einem Terminator Schluss, habe es gerade überprüft.
Also intern (wovon ich Ausgehe das es nur intern abgewickelt wird) läuft es.
Da sieht man das es 4 Zeichen kodiert sind.
Habe einfach Labels für Länge mit rangebaumelt.
Ich schrieb ja weiter oben, bei Problemen mit Output wäre Base64 empfehlenswert.
Bei Bedarf aktualisiere ich Demo indem ich auch Base64 zwischen schubse.
(Dein Code kann mein Delphi noch nicht, die
Unit fehlt mir)