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

implementation
{$R *.dfm}

function Verschluesselung(Buchstabe: Char): Char;
begin
 PositionWalze1 := (Ord(Buchstabe) - 64) + DrehungenWalze1;
 if (PositionWalze1 >= 27) then Dec(PositionWalze1, 26);
 Result := Walze1[PositionWalze1];
 if (DrehungenWalze1 >= 26) then DrehungenWalze1 := 1
 else Inc(DrehungenWalze1);
end;
...
{in der Prozedur TForm1.Memo1KeyPress wird der kodierte Text um den kodierten Buchstaben aus der function erweitert}
KodierterText := KodierterText + Verschluesselung(GedrueckteTaste, Walze1);					

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:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:

var
 Form1 : TForm1;
 DrehungenWalze1 : Integer = 0;
 i, j : Integer;
 PositionWalze1 : Integer = 1;
 Walze1Auswahl :  String = 'QWERTZUIOPASDFGHJKLYXCVBNM
                           EKMFLGDQVZNTOWYHXUSPAIBRCJ
                           AJDKSIRUXBLHWTMCQGZNPYFVOE
                           BDFHJLCPRTXVZNYEIWGAKMUSQO
                           ESOVPZJAYQUIRHXLNFTGKDCMWB
                           VZBRGITYUPSDNHLXAWMJQOFECK
                           JPGVOUMFYQBENHZRDKASXLICTW
                           NZJHGRCXMYSWBOUFAIVLPEKQDT
                           FKQHTLXOCBJSPDZRAMEWNIUYGV';
 KodierterText : String  = '';
 Walze1 : String  = 'QWERTZUIOPASDFGHJKLYXCVBNM';

implementation
{$R *.dfm}

function Verschluesselung(Buchstabe: Char; WalzeX: String): Char;
begin
 PositionWalze1 := (Ord(Buchstabe) - 64) + DrehungenWalze1;
 { Der 'oberste' Buchstabe der Walze ergibt sich aus der Buchstabenposition im Alphabet + der Anzahl der Walzendrehnungen }
 if (PositionWalze1 >= 27) then Dec(PositionWalze1, 26);
 { Ist die Walzenposition des verschlüsselnden Buchstaben größer als die Walze, wird die Position um eine Walzenlänge gekürzt }
 Result := WalzeX[PositionWalze1];
 if (DrehungenWalze1 >= 26) then DrehungenWalze1 := 1
 else Inc(DrehungenWalze1);
 { Ist die Walze in der letzten Position, fängt sie in der 1. Position an; ansonsten dreht sie sich eine Position weiter }
end;

procedure TForm1.KlartextKeyPress(Sender : TObject; var GedrueckteTaste : Char);
begin
 if (GedrueckteTaste in ['a'..'z', 'A'..'Z', #8, #13, #32]) then begin
  if (KodierterText = '') then begin
   AuswahlWalze1.Enabled := false;
   BeginnWalze1.Enabled := false;
  end;
  GedrueckteTaste := UpCase(GedrueckteTaste);
  { Ist die gedrückte Taste 'a'..'z', wird sie zum entsprechenden Großbuchstaben }
  case GedrueckteTaste of
   'A'..'Z' : begin
               KodierterText := KodierterText + Verschluesselung(GedrueckteTaste, Walze1);
               { Der kodierte Text wird um den verschlüsselten Buchstaben erweitert }
              end;
   #8 : if not (KodierterText = '') then begin
         case KodierterText[Length(KodierterText)] of
          'A'..'Z' : begin
                      Delete(KodierterText, Length(KodierterText), 1);
                      { Ist das letzte Zeichen im kodierten Text 'A'..'Z', wird im kodierten Text das letzte Zeichen gelöscht }
                      if (DrehungenWalze1 <= 0) then DrehungenWalze1 := 26
                      else Dec(DrehungenWalze1);
                      { Ist die Walze in der 1. Position, fängt sie in der letzten Position an; ansonsten dreht sie sich eine Position zurück }
                     end;
          #10 : Delete(KodierterText, Length(KodierterText) - 1, 2);
          { Ist das letzte Zeichen im kodierten Text 'Zeilenanfang', werden im kodierten Text die letzten beiden Zeichen (#13 und #10) gelöscht }
          #32 : Delete(KodierterText, Length(KodierterText), 1);
          { Ist das letzte Zeichen im kodierten Text 'Leertaste', wird im kodierten Text das letzte Zeichen gelöscht }
         end;
        end;
   #13 : KodierterText := KodierterText + #13#10;
   { Ist die gedrückte Taste 'Enter', wird der kodierte Text mit #13 (Beginn der nächsten Zeile) und #10 (Zeilenanfang) erweitert }
   #32 : KodierterText := KodierterText + ' ';
   { Ist die gedrückte Taste 'Leertaste', wird der kodierte Text mit einer Leerstelle erweitert }
  end;

  Kodierung.Text := KodierterText;
  { Der kodierte Text wird im Ausgabefeld ausgegeben }

  with Kodierung do begin
   SelStart := Length(Kodierung.Text);
   { Der markierte Textteil im Ausgabefeld wird ans Ende des kodierten Textes gesetzt }
   SendMessage(Kodierung.Handle, EM_Scrollcaret, 0, 0);
   { Das Ausgabefeld bekommt den Befehl, soweit zu scrollen, bis der Cursor mit dem markierten Textteil im Bild ist }
  end;

 end
 else GedrueckteTaste := #0;
 { Ist die gedrückte Taste nicht 'a'..'z', 'A'..'Z', 'Löschen', 'Enter' oder 'Leerstaste', wird sie nicht angezeigt }
end;

procedure TForm1.BeginnWalze1Change(Sender: TObject);
begin
 Insert(Copy(Walze1, 1, BeginnWalze1.ItemIndex), Walze1, Length(Walze1) + 1);
 { Der Walzenteil, der vor dem Anfangsbuchstaben liegt, wird ans Ende der Walze kopiert }
 Delete(Walze1, 1, BeginnWalze1.ItemIndex);
 { Der Walzenteil, der vor dem Anfangsbuchstaben liegt, wird gelöscht }
end;

procedure TForm1.AuswahlWalze1Change(Sender: TObject);
begin
 for i := 1 to 26 do Walze1[i] := Walze1Auswahl[i + 26 * AuswahlWalze1.ItemIndex];
 { Aus allen verfügbaren Walzen wird die Ausgewählte in den String Walze1 kopiert }
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Klartext.Text := '';
 Kodierung.Text := '';
end;

end.					

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

{ Verschlüsselung            | Walze              | Notch | Turnover }
 { ABCDEFGHIJKLMNOPQRSTUVWXYZ | Eintrittswalze     |       |          }
 { EKMFLGDQVZNTOWYHXUSPAIBRCJ | Walze I            | Y     | Q        }
 { AJDKSIRUXBLHWTMCQGZNPYFVOE | Walze II           | M     | E        }
 { BDFHJLCPRTXVZNYEIWGAKMUSQO | Walze III          | D     | V        }
 { ESOVPZJAYQUIRHXLNFTGKDCMWB | Walze IV           | R     | J        }
 { VZBRGITYUPSDNHLXAWMJQOFECK | Walze V            | H     | Z        }
 { JPGVOUMFYQBENHZRDKASXLICTW | Walze VI           | H, U  | Z, M     }
 { NZJHGRCXMYSWBOUFAIVLPEKQDT | Walze VII          | H, U  | Z, M     }
 { FKQHTLXOCBJSPDZRAMEWNIUYGV | Walze VIII         | H, U  | Z, M     }
 { LEYJVCNIXWPBQMDRTAKZGFUHOS | Walze Beta         | M4    | M4       }
 { FSOKANUERHMBTIYCWLQPZXVGJD | Walze Gamma        | M4    | M4       }
 { YRUHQSLDPXNGOKMIEBFZCWVJAT | Reflektor B        |       |          }
 { FVPJIAOYEDRZXWGCTKUQSBNMHL | Reflektor C        |       |          }
 { ENKQAUYWJICOPBLMDXZVFTHRGS | Reflektor 'dünn' B | M4    | M4       }
 { RDOBJNTKVEHMLFCWZAXGYIPSUQ | Reflektor 'dünn' C | M4    | M4       }

 { QWERTZUIOPASDFGHJKLYXCVBNM = Tastaturlayout Computer}
 { QWERTZUIOASDFGHJKPYXCVBNML = Tastaturlayout ENIGMA}					

1:
2:

A B C D E F G H I J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z
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					

1:
2:

Q W E R T Z U I O A  S  D  F  G  H  J  K  P  Y  X  C  V  B  N  M  L
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					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

1. Walze:
 ABCDEFGHIJKLMNOPQRSTUVWXYZ
 ||||||||||||||||||||||||||
 EKMFLGDQVZNTOWYHXUSPAIBRCJEKMFLGDQVZNTOWYHXUSPAIBRCJ
 Nach jedem eingegebenen Buchstaben den Ersten löschen (also 'E', dann 'K', dann 'M' ...)

2. Walze:
 ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ
 ||||||||||||||||||||||||||
 AJDKSIRUXBLHWTMCQGZNPYFVOE

3. Walze:
 ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ
 ||||||||||||||||||||||||||
 BDFHJLCPRTXVZNYEIWGAKMUSQO

 E-P  I-J  N-K
 B-P  I-Z  S-C  S-H  C-J  H-K  E-L  N-C
 F-M  R-R  I-S  E-O  D-O  E-B  N-P

 Klartext: Ein bisschen Frieden
 Code: PJKPZCHJKLCMRSOOBP					

1:

Combobox1.Items.Delete(index)					

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

procedure AuswahlWalzen(WalzeX: String);
begin
case Chr(Length(WalzeX)) of
 '1' : ...
 '2' : ...
 '3' : ...
end;
end;					

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

var Walze1Auswahl : String = 'EKMFLGDQVZNTOWYHXUSPAIBRCJ
AJDKSIRUXBLHWTMCQGZNPYFVOE
BDFHJLCPRTXVZNYEIWGAKMUSQO
ESOVPZJAYQUIRHXLNFTGKDCMWB
VZBRGITYUPSDNHLXAWMJQOFECK
JPGVOUMFYQBENHZRDKASXLICTW
NZJHGRCXMYSWBOUFAIVLPEKQDT
FKQHTLXOCBJSPDZRAMEWNIUYGV';
...
procedure TForm1.AuswahlWalze1Change(Sender: TObject);
var i : Integer;
begin
 for i := 1 to 26 do Walze1[i] := Walze1Auswahl[i + 26 * AuswahlWalze1.ItemIndex];
 { Aus allen verfügbaren Walzen wird die Ausgewählte in den String Walze1 kopiert }
end;					

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

procedure Walzenauswahl(WalzeX: String); 
begin 
  case Chr(Length(WalzeX)) of 
   '1' : ... 
   '2' : ... 
   '3' : ... 
  end; 
end;