joa also das passt schon fast aber jetzt hab ich das Problem mit den Typen, dass sie nicht kompatibel sind (Integer und Array)
Delphi-Quellcode:
for I := 0 to length(schluessel) - 1 do
begin
zwisch[i] := StrToInt(schluessel[i]);
case i of
0: key[i] := (test1[random(3)]);// Falsche Typen Hier und
1: key[i] := (test2[random(3)]);// Hier (Int und Array)