[HaBo]

for i := 1 to length(text) do  //durchlaufen des textes  (FOR-Schleife)
begin
   case text[i] of             //zeichen abfragen und ersetzten
    'a' : text[i] := 'b'; 
    'b' : text[i] := 'c';
    'c' : text[i] := 'd';
    'd' : text[i] := 'e';
    'e' : text[i] := 'f';
    'f' : text[i] := 'g';
    'g' : text[i] := 'h';
    'h' : text[i] := 'i';
    'i' : text[i] := 'j';
    'j' : text[i] := 'k';
    'k' : text[i] := 'l';
    'l' : text[i] := 'm';
    'm' : text[i] := 'n';
    'n' : text[i] := 'o';
    'o' : text[i] := 'p';
    'p' : text[i] := 'q';
    'q' : text[i] := 'r';
    'r' : text[i] := 's';
    's' : text[i] := 't';
    't' : text[i] := 'u';
    'u' : text[i] := 'v';
    'v' : text[i] := 'w';
    'w' : text[i] := 'x';
    'x' : text[i] := 'y';
    'y' : text[i] := 'z';
    'z' : text[i] := 'a';
   end;