ich vermute hier
Delphi-Quellcode:
schluessel1 := IntToStr(key11);
SetLength(KeyA, Length(schluessel1));
Randomize;
for I := 1 to length(schluessel1) do // <-- hier
begin
Array sind Null-basierend.
so sollte es richtig sein:
for I := 0 to length(schluessel1) -1 do