Problem mit statischem array und zufälliger ausgabe

[5etH]

hier nochmal die katuelle komplette procedure

Delphi-Quellcode:

procedure TForm6.Button3Click(Sender: TObject);
var schluessel : String;
    i : Integer;
    key : array of Integer;
    zwisch : array of integer;
    test1  : array[0..0,3..3,7..7,9..9] of Integer;
    test2 : Array[2..2,4..4,6..6,8..8] of integer;
    key2 : String;

begin

    schluessel := edit4.text;
    SetLength(key, Length(schluessel));


    Randomize;
    for I := 0 to length(schluessel) - 1 do
      begin
      zwisch[i] := StrToInt(schluessel[i]);

      case i of

      0: key[i] := (test1[random(3)]);//Wenn ich "(3)" weglasse gibt er mir aus das die typen Integer und Extended nicht übereinstimmen
      1: key[i] := (test2[random(3)]);



      end;

      end;

      for I := 0 to length(schluessel) - 1 do
        begin
          key2 := key2 + IntToStr(key[i]);
        end;


end;