1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function caeser(Text : String; Key : SmallInt; Entschluesseln : boolean):String;
  var
    i : integer;
  begin
    For i:=1 to Length(Text) do
      begin
        If (Ord(Text[i])-64>=1) And (Ord(Text[i])-64<=26) Then
          If Entschluesseln Then
            Result:=Result+(Chr((((Ord(Text[i])-65)+(26-Key))Mod 26) + 65))
          Else
            Result:=Result+(Chr((((Ord(Text[i])-65)+(Key))Mod 26) + 65))
        Else
          Result:=Result+Text[i];
      end;
  end;					

1:
2:
3:
4:
5:

        for i:=1 to Length(key) do
          begin
            If ((Ord(key[i])-65) Mod 2) = 0 Then
              text:=caeser(Text, (Ord(key[i])-65), false);
          end;