Wörter Sortieren im Array

[Rippo]

Hallo zusammen

ich möchte in meinem Array die wörter sortieren, jedoch bekomme ich ein fehlermeldung ---> zugriffsverletzung

Delphi-Quellcode:

Procedure SortWord(aWord : string; var aWord_Array : TStringArray);
var NewEintrag, i : Integer;
    Str : String;
    Check: Boolean;
  //wenn sortiert gespeichert werden soll
Begin
 Repeat
  Check:= False;
   i := 1;
    repeat
     if CompareStr(aWord_Array[i], aWord_Array[i+1])>0 then
      begin
       Str := aWord_Array[i];
       aWord_Array[i] := aWord_Array[i+1];
       aWord_Array[i+1] := Str;
       Check := TRUE;
      end;
      Inc(i);
    until(i>Length(aWord_Array));
 Until(Check=FALSE) ;