Variablen während Laufzeit erzeugen?

[DeddyH]

So besser (habe mir das Ganze aber nicht genauer angesehen)?:

Delphi-Quellcode:

repeat
    for i := 0 to length (Schluessel) do // x = Länge des Schlüssels
    begin
      List.Add('');                                // x = Anzahl der Elemente in List
      List.Strings[i]:= List.Strings[i] + Klartext[zeichen];
      //List.Insert(i, Klartext[Zeichen]);
      inc (Zeichen);
      inc (z);
      if z > length (Klartext) then
        break;
    end;
    i := 0;
    until z > length(Klartext);