Löschen aus der StringList verursacht Fehler, wieso?

[AlexII]

Hallo,

ich lösche wie folgt aus einer StringList, aber immer beim letztem oder vorletztem Item bricht das Programm zusammen, da "List index (x) out of bounds"
Ich verstehe nicht wieso... wird der Count etwa runtergezählt? Wie kann man sich das anders erklären, oder mache ich was falsch?

Delphi-Quellcode:

procedure TMainForm.DeleteFromErrorList(pvErrorCode: String);
var
  i, p: Integer;
begin
  if gvErrorReportList.Count > 0 then
  begin
    for i := 0 to gvErrorReportList.Count - 1 do
    begin
      p := Pos(ErrorCode, gvErrorReportList.Strings[i]);
      if p <> 0 then
      begin
        gvErrorReportList.Delete(i);
      end;
    end;
  end;

end;

Danke!