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:

For a:=1 to length(edit1.text) do

    begin
    Code[a]:=edit1.text[a];
    end;


z:=false;
f:=length(edit1.text)+1;
    For c:=ORD('a') to ORD('z') do
      begin
       For b:=1 to length(Code) do
          begin
          If c=ORD(Code[b])
          then
          z:=true;
          end;

        If z=false then
        begin
        Code[f]:=CHR(c);
        f:=f+1;
        end;
        end;


For k:=1 to 26 do
listbox1.items.add(Code[k]);
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:

const
original   = ' ABCDEFGHIJKLMNOPQRSTUVWXYZ'+
             'abcdefghijklmnopqrstuvwxyzÄÖÜäöüß';
schluessel = 'MKrLcDXSfghäUöHVWjIZlNYvÄdx' +
             'an qsoPbAEBTFÖCyzükÜGmOßJweQRiptu';

procedure Tform1.Button1Click(Sender: TObject); //verschlüsseln
var
Eingabe, Ausgabe : String;
x,laenge,position : integer;
begin
Eingabe := Memo1.Text;
Ausgabe := '';
laenge := Length(Eingabe);
for x:= 1 to laenge do
begin
position := Pos(Eingabe[x],original);
if position <> 0 then
Ausgabe := Ausgabe + schluessel[position]
else
Ausgabe := Ausgabe + Eingabe[x];
end;
Memo2.Text := Ausgabe;
end;                    

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

var
  s: String; //Text
  i: Integer; //Zählvariable
  text: set of Char; //Menge der im Text vorhandenen Zeichen
begin
  s := UpperCase(Edit1.Text); //Nur Großbuchstaben (kannst du ja ändern falls verlangt)

  text := []; //Initialisieren (EDIT: vergessen, sorry, hab atm kein Delphi)

  for i := 1 to Length(s) do //Vorhandene Zeichen der Menge hinzufügen
    text := text + [s[i]];

  for i := Ord('A') to Ord('Z') do begin //Alle Buchstaben durchgehen
    if not(Chr(i) in text) then //Wenn Zeichen noch nicht in der Menge vorkommt...
      s := s + Chr(i); //...an String anhängen
    end;

  Edit2.Text := s; //Ausgeben
end;