also wird aus A --> 51 --> + 40 = 91 (nicht nachvollziehbar ohne den Schlüssel)
Wenn man dafür einen Blick hat... Erkennt man sofort den "Chiffree"... und mit in bisschen testen hat man das raus...
Dann schon lieber eine Tabelle Result := chr(Table[ord(A)])...
oder einen XOR String zur Verknüpfung...
BTW.: Was hat das mit Memory zu tun?
Abgesehen davon gibt es hier extra einen Delphi-Tag - also nicht Code verwenden...