Problem mit einer Zugriffsverletzung

[DeddyH]

Delphi-Quellcode:

var eingabe : String;
    ausgabe : array of integer;
    i       : Integer;
    test    : String;

begin
  eingabe := edit1.text;
  SetLength(ausgabe, Length(eingabe)); //erstmal Speicher reservieren
  for I := 1 to length(eingabe) - 1 do //wieso -1?
    begin
      ausgabe[i] := StrToint(Eingabe[i]) mod 2; //der Fehler tritt hier auf

    end;
    for I := 1 to length(eingabe) - 1 do
      begin
        test := Inttostr(ausgabe[i]);
      end;

    edit2.text := (test);
end;