Hei 5etH,
so wie ich das sehe kommt die Zugriffsverletzung früher.
KeyA ist ein dynamisches Array. Diese beginnen bei 0. Du arbeitest aber von 1 bis Lenth(schluessel).
Also:
Delphi-Quellcode:
for I := 1 to length(schluessel1) do
begin
keyX := keyX + IntToStr(keyA[i-1]);
end;
Stephan B.