Hallo,
du musst da schon noch ein
if reinpacken,
sowas wie
Delphi-Quellcode:
var
j: Integer,
// oh Gott, i und j ;)
j:= Ord(text[i]);
if j<=was_weis_ich
then
begin
j:= was_weiss_ich_2;
end;
j:= j-25;
Damit bekommst Du dein "Ring-Alphabet".
Geh doch das einmal auf einem Blatt Papier durch.
'A'->'Z', Ord('A)=, Ord('Z')
Schreib alles auf und dann weiter mit dem
if.