1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
var help :string;
begin
help := 'DAS IST EIN TEST';
ShowMessage(help[1] + ' ' + inttostr(ord(help[1]))); //Es wird der erste Buchstabe des String angegeben(D) und sein ASCII CODE (68)
end;					

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

wortlaenge:=length(geheimtext);

for j:=1 to 26 do
x:=false;
   for i:=1 to wortlaenge do
   Begin
   if chr(j+60)=geheimtext[i] then
      x:=true;
   end;

   if x=false then
      geheimtext:=geheimtext+chr(i+60); //weiss jetzt grad nicht wo bei ascii das alphabet anfängt bei ansi ist das bei 95
end;					

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

wortlaenge:=length(geheimtext); //wir muessen bestimmen wie lang das Schluesselwort ist

for j:=1 to 26 do                       //erste Schleife die alle Buchstaben durchkaut die das alphabet hat (a-z = 1-26)
x:=false;                               //x ist ne boolean variable. kontrolle ob buchstabe vorhanden
   for i:=1 to wortlaenge do            //kontrollschleife ob der buchstabe schon vorhanden 
   Begin                                //muss nur das schluesselwort durchgehen da ansonsten ja alle buchstaben 
   if chr(j+65)=geheimtext[i] then      //hochgezaehlt werden
      x:=true;                          //falls buchstabe schon im schluesselwort setzte x auf true
   end;

   if x=false then                      //falls buchstabe nicht im schluesselwort dann fuege den buchstaben dem schluessel
      geheimtext:=geheimtext+chr(i+65); //wort hinzu. 
end;					

1:

StringGrid1.Cells[1,0]:=geheimtext;					

1:
2:
3:
4:

for i:=0 to 25 do                   //0 da das stringgrid mit 0 anfaengt und 25 weil es 26 buchstaben gibt
Begin                                       //strings fangen mit !!!1!!! an daher i+1 ansonsten einfach auf jedes feld
   StringGrid1.Cells[1,i]:=geheimtext[i+1]; //einen buchstaben pusten 
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:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:

...

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    Blocker : array[1..26] of boolean;
    Position : Integer;
    public
    { Public-Deklarationen }
  end;

...

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
    help :integer;
begin
  StringGrid1.ColCount := 27;
  StringGrid1.RowCount := 2;
  StringGrid1.DefaultColWidth := 25;
  StringGrid1.DefaultRowHeight := 24;
  StringGrid1.Height := 50;
  StringGrid1.Width := 705;                                 //StringGrid wird eingestell. NICHT notwendig kann weggelassen werden
  for i := 1 to 26 do blocker[i] := false;
  Position := 0;                                            //Zurück setzen des Buchstabenblockers und der Position
  for i := 1 to 26 do StringGrid1.Cells[i,0] := chr(i+64);  //Das normale Alphabet wir ins StringGrid geschrieben
  help := Edit1.text;
  for i := 1 to length(help) do help[i] := upcase(help[i]); //Das Gesamte eingegebene Wort wird zu Großbuchstaben
  Edit1.text := help;
  for i := 1 to length(Edit1.text) do                       //Die Länge des Schlusseswortes wird ermittelt
    begin
      if not blocker[ord(Edit1.text[i])-64] then            //Es wird überprüft ob der Buchstabe schon im Schlüsselwort vorhanden ist
       begin
        Inc(Position);                                      //Wenn NICHT, wird Fertig erhöht, also die Position für den neuen Buchstaben
        blocker[ord(Edit1.text[i])-64] := true;             //Der Buchstabe wird geblockt, so das er nicht 2 mal vorkommen kann
        StringGrid1.Cells[Position,1] := Edit1.text[i];     // Der Buchstabe wird als Teil des Chiffrealphabet
      end;
    end;
  for i := 1 to 26 do
    begin
      if not blocker[i] then                                //Die Buchstaben des Alpahbets werden nach einander durch gegangen
      begin                                                 //Sollte ein Buchstabe noch nicht vorhanden sein, wir er ab jetzt geblockt
        Inc(Position);                                      //um am Ende des Geheimalpahbets eingefügt
        blocker[i] := true;
        STringGrid1.Cells[Position,1] := chr(i+64);
       end;
    end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin                                                       //Zufallsgenerator wird aktiviert
randomize;
end;					

1:

for i := 1 to 26 do sch_Wort := sch_Wort + StringGrid1.Cells[i,1];					

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:

procedure schluesselwort(geheimtext:string);             //diese uebergabe einfach loeschen dann kannst es normal nutzen


procedure TForm1.schluesselwort(geheimtext:string);      //muesste also lauten: TForm1.schluesselwort; 
var     i,j,wortlaenge:word;                             //variablen die du brauchst
        x:boolean;
Begin
        geheimtext:=lowercase(geheimtext);               //sichergehn das du nur kleinbuchstaben hast
        wortlaenge:=length(geheimtext);
        for j:=1 to 26 do                      
        Begin
                x:=false;                               
                for i:=1 to wortlaenge do        
                Begin                                
                        if chr(j+96)=geheimtext[i] then      
                                x:=true;                   
                end;
                if x=false then                      
                        geheimtext:=geheimtext+chr(j+96); 
        end;
        for i:=1 to 26 do                  
        Begin                                       
                StringGrid1.Cells[i,0]:=chr(i+96);       //erste zeile des stringrids mit dem alphabet füllen 
                StringGrid1.Cells[i,1]:=geheimtext[i]; 
        end;
end;