Außerdem sind ungerade Zahlen ja wohl (1,3,5,7,9) und gerade (0,2,4,6,8). Zudem hast du die länge von 'zwisch' nicht festgelegt, da wird noch ein Fehler kommen. Ach, und das hier:
Delphi-Quellcode:
for I := 0 to length(schluessel) - 1 do
begin
zwisch[i] := StrToInt(schluessel[i]);
case i of //i hat beim ersten mal den Wert 0, dann 1, dann 2 usw...
0: key[i] := (test1[random(3)]);
1: key[i] := (test2[random(3)]);
end;
end;
Wenn überhaupt müsstest du das so machen:
Delphi-Quellcode:
case StrToInt(Schluessel[i]) of
[...]
Denn ansonsten liefert i dir jeweils einmal 0 und 1 zurück, und wird dann immer größer.
Mfg