Das glaub ich Dir gerne, dass Du dich da nicht mehr herausgesehen hast.
Du solltest die Kodier- und Dekodierfunktion vom Programm trennen, am besten in eine eigene
Unit.
Delphi-Quellcode:
function EnCode(aText, aKey:String): String;
function DeCode(aText, aKey:String): String;
Das implementieren, gut testen, anschliessend die Oberfläche dazu basteln.
Dann wird's gelingen
