1:
2:
3:
4:
5:
6:
7:
8:

function bla(s: string; key: byte): string;
var
 i: integer;
begin
 result := '';
 for i := 1 to length(s) do
  result := result + chr(byte(s[i]) xor key)
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var
    i: integer;
begin
    edit2.text:='';
    for i := 1 to length(Edit1.Text) do
        edit2.Text:=Edit2.Text+
        chr((((ord(Edit1.Text[i])-65)+13) mod 26)+65);
end;                    

1:
2:
3:
4:
5:

Case Key of
  'A': EncodedKey:='X';
  'B': EncodedKey:='F';
  //...
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

var
i : integer;
EncodedKey : string;
Key : Char;

begin
Klartext := '' ;
Vorbehandeln(Geheimtext);

For i:=[1..7] to length(Geheimtext) do

begin
key:=Geheimtext[i];

Case Key of
'XZYJVPQ': EncodedKey:= 'A';
'XYJVPQZ': EncodedKey:= 'B';
'JXZYVPQ': EncodedKey:= 'C';
'XZYJQVP': EncodedKey:= 'D';
'XZJVPQY': EncodedKey:= 'E';
'XZYVJPQ': EncodedKey:= 'F';
'JVPQXZY': EncodedKey:= 'G';
'ZYJVXPQ': EncodedKey:= 'H';
'JVPXZYQ': EncodedKey:= 'I';
'XVZYJPQ': EncodedKey:= 'J';
'XZYQJVP': EncodedKey:= 'K';
'XZJVYPQ': EncodedKey:= 'L';
'XZYJPVQ': EncodedKey:= 'M';
'XZYJVQV': EncodedKey:= 'N';
'XYJZVPQ': EncodedKey:= 'O';
'XYJVZPQ': EncodedKey:= 'P';
'YJVPQXZ': EncodedKey:= 'Q';
'QXZYJVP': EncodedKey:= 'R';
'XZYPJVQ': EncodedKey:= 'S';
'ZYJVPQX': EncodedKey:= 'T';
'XZYVJPQ': EncodedKey:= 'U';
'XZJYVPQ': EncodedKey:= 'V';
'XZYJVQP': EncodedKey:= 'W';
'ZYJXVPQ': EncodedKey:= 'X';
'XZYJPQV': EncodedKey:= 'Y';
'XZYVPQJ': EncodedKey:= 'Z';
end;

Klartext := Klartext + EncodedKey;

end;

end;                    

1:

For i:=[1..7] to length(Geheimtext) do                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

var
  Form1: TForm1;
{  sequences : Array[65..90] OF String
            = ('XZYJVPQ','XYJVPQZ', 'JXZYVPQ', ...);}
  sequences : Array[65..67] OF String
            = ('XZYJVPQ','XYJVPQZ', 'JXZYVPQ');

implementation

{$R *.dfm}

function LetterFromSequence(sequence : String) : Char;
VAR i : INTEGER;
begin
  //for i:=65 TO 90 DO
  for i:=65 TO 67 DO
  if sequence = sequences[i] then
  begin
    result := Chr(i);
    exit;
  end;
  result := '*';
end;

function ClearFromEnc (Enc : String) : String;
VAR i : Integer;
    part : String;
begin
  i:=1;
  result:= '';
  while i <= Length(Enc)-6 do
  begin
    part := Copy(Enc, i, 7);
    result := result + LetterFromSequence(part);
    i := i + 7;
  end;
end;

function EncFromClear (Clear : String) : String;
VAR i, index : INTEGER;
begin
  result := '';
  for i:=1 TO Length(Clear) do
  begin
    index := Ord(Clear[i]);
    //if index IN [65..90]
    if index IN [65..67] then
    result := result + sequences[index];
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit2.text := EncFromClear(edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.text := ClearFromEnc(edit2.text);
end;