Fehler: Ungültige Zeigeroption

[5etH]

Hallo Zusammen,

ich habe ein Programm geschrieben und bekommen diese Fehlermeldung: Em Projekt ... ist eine Exception der Klasse EInvalidPointer mit der Meldung 'Ungültige Zeigeroption' aufgetreten.
Woher kommt dieser Fehler und wie kann ich ihn beheben? Das ganze kommt, wenn ich auf einen Button drücke... Hier einmal der dazugehörige Quelltext.

Delphi-Quellcode:

var schluessel1, schluessel2, schluessel3 : String;
    i : Integer;
    KeyA, KeyB, KeyC : array of Integer;
    zwisch1, zwisch2, zwisch3 : array[0..7] of integer;
    const bin0: array[0..3] of Integer = (2,4,6,8);
    const bin1: array[0..3] of Integer = (3,5,7,9);
begin
    keyx := '';
    keyy := '';
    keyz := '';
    schluessel1 := IntToStr(key11);
    SetLength(KeyA, Length(schluessel1));
    Randomize;
    for I := 1 to length(schluessel1) do
      begin
        zwisch1[i] := StrToInt(schluessel1[i]);
         case StrToInt(Schluessel1[i]) of
           0: keyA[i] := (bin0[random(3)]);
           1: keyA[i] := (bin1[random(3)]);
         end;
      end;
      for I := 1 to length(schluessel1) do
        begin
          keyX := keyX + IntToStr(keyA[i]);
        end;
      edit8.text := keyX;

    Schluessel2 := IntToStr(key12);
    SetLength(keyB, Length(Schluessel2));
    Randomize;
    for I := 1 to length(Schluessel2) do
      begin
        zwisch2[i] := StrToInt(Schluessel2[i]);
         case StrToInt(Schluessel2[i]) of
           0: keyB[i] := (bin0[random(3)]);
           1: keyB[i] := (bin1[random(3)]);
         end;
      end;
      for I := 1 to length(Schluessel2) do
        begin
          keyY := keyY + IntToStr(keyB[i]);
        end;
      edit9.text := keyY;

    schluessel3 := IntToStr(key13);
    SetLength(KeyC, Length(schluessel3));
    Randomize;
    for I := 1 to length(schluessel3) do
      begin
        zwisch3[i] := StrToInt(schluessel3[i]);
         case StrToInt(schluessel3[i]) of
           0: KeyC[i] := (bin0[random(3)]);
           1: KeyC[i] := (bin1[random(3)]);
         end;
      end;
      for I := 1 to length(schluessel3) do
        begin
          keyZ := keyZ + IntToStr(KeyC[i]);
        end;
      edit10.text := keyZ;

schonmal vielen dank für eure Hilfe

Euer Manu