Variablen während Laufzeit erzeugen?

[mo_greene]

Delphi-Quellcode:

procedure TKryptobox.Verschluesseln;
(* -------------------------------------------------------------------- *)
var
  i, //Zählvariable für for-Schleife
  z, //Variable, die bis zum Ende des Klartextes zählt (repeat...until)
  KTWert,
  GTWert,
  Schluessellaenge, Zeichen  : integer;
  List : TStringlist;
begin
  List := TStringlist.Create;  //Stringlist wird erstellt
  Geheimtext := '' ;
  Vorbehandeln(Klartext);
  Zeichen := 1;
  z := 1;
(*--------------------------------------------------------------------------*)
  try
    repeat
    for i := 0 to length (Schluessel) do // x = Länge des Schlüssels
    begin                                // x = Anzahl der Elemente in List
      List.Add('');                      
      List.Strings[i]:= List.Strings[i] + Klartext[zeichen];
      //List.Insert(i, Klartext[Zeichen]);
      inc (Zeichen);
      inc (z);
    end;
    i := 0;
    until z = length(Klartext);
  except
    ShowMessage('Fehler');
  end;
List.SaveToFile('C:\Krypto.txt'); //Zum Testen des Inhalts in List :)
(*--------------------------------------------------------------------------*)
end;