Fehler: Listenindex überschreitet das Maximum (1)

[AnyKey]

Hi,

auf die Gefahr hin das ich einfach nur zu blöd bin den fehler zu finden und es eigentlich ganz einfach ist und diese frage bestimmt schon hundert mal gestellt wurde, frage ich euch trotzdem:

Wo liegt im folgenden Quelltext der Fehler?? Ich finde ihn einfach nicht, bekomme aber dauernd die Meldung Listenindex überschreitet das maximum (1)

Delphi-Quellcode:

class function TStringManipulation.SyntaxHighlighting(Edit: TRichEdit; Progressbar: TProgressbar): Bool;
var i           : Integer;
var Linemax     : Integer;
var AResultList : TStringList;
begin
  try
    AResultList := TStringList.Create;
    AResultList.Add(Edit.Text);
    Linemax := Edit.Lines.Count;
    ProgressBar.Position := 0;
    ProgressBar.Max := Linemax;
    Edit.Lines.Clear;
    for i := 0 to Linemax-1 do
    begin
      with Edit do
      begin
        SelText := AResultList.Strings[i];
        SelStart := 9;
        SelLength := 5;
        SelAttributes.Color := clBlue;
        SelAttributes.Style := [fsBold];
//        SelText := AResultList.Strings[i];
//        Lines.Add(AResultList.ValueFromIndex[i]);
      end;
      ProgressBar.Position := Progressbar.Position + 1;
    end;
    FreeAndNil(AResultList);
    result := true;
  except
    FreeAndNil(AResultList);
    result := false;
  end;
end;

Wäre super wenn jemand den Fehler finden würde, ich steig nich mehr durch...

Danke
AnyKey