Fertige Projekte oder Quelltexte wird es hier nicht geben.
Dein Quelltext veschlüsselt alle Zeilen in einem Memo. Du solltest dir erstmal eine Funktion schreiben, die dir einen übergebenen String um eine auch übergebene Anzahl von Stellen verschiebt.
Um die Buchstaben in Zahlen zu verwandeln, werden dir die Befehle
ord chr helfen. Die Verwendung ist recht einfach, du kannst da alles in der
OH nachlesen. Wenn du dann den
Ascii-Wert eines Buchstaben hast, addierst du dazu deinen Schlüssel und wandelst in per chr wieder in einen Buchstaben um. Dabei musst du natürlich darauf achten, dass, wenn du ein Z mit 2 verschlüsselst, du das Abfangen musst, um nicht aus dem Bereich der Buchstaben herrauszulaufen.
// EIn Tipp: Um aus einem Buchtstaben eine Zahl zwischen 0 und 25 zu machen kannst du diesen Code benutzen;
NR:= ord(Buchstabe)-ord('A');
Dadurch, dass du ord('A') abziehst, bekommt das A die 1 und nicht den normalen
Ascii-Wert von 80 oder so.