Удаление строк в TStringList

При удалении всех строк где есть слово "Del" сообщение об ошибке: List index out of bounds (2)

var
  L, K: TStringList;
  i: integer;
begin
  L := TStringList.Create;
  L.LoadFromFile(ExtractFilePath(Application.ExeName) + 'f.txt');
  for i := 0 to L.Count - 1 do
  begin
    if pos('Del', L.Strings[i]) > 0 then
      L.delete(i);
    L.SaveToFile(ExtractFilePath(Application.ExeName) + 'f.txt');
  end;
  L.Free;
end;