ohne es probiert zu haben:
Delphi-Quellcode:
orginal:=Edt_Eingabe.Text;
code := '';
For i:=1 To length (original)
DO code := code + chr(ord(orginal[i])+3);
Edt_Ausgabe.Text:=code;
weil:
a.) code nicht initialisiert war
b.) die Länge von code daher undefiniert war
Außerdem: code wird nicht wirklich benötigt. Kannst direkt in Edt_Ausgabe.Text schreiben.