Почему не удаляется горизонталь? Скрипт прилагается.

//+------------------------------------------------------------------+
//|                                                   TestSubstr.mq4 |
//|                        Copyright 2016, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, MetaQuotes Software Corp."
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
 {
//---
  ENUM_LINE_STYLE InpStyle=STYLE_DASH; // Стиль линии 
  int             InpWidth=1;          // Толщина линии 
  bool            InpBack=false;       // Линия на заднем плане 
  bool            InpSelection=false;  // Выделить для перемещений 
  bool            InpHidden=false;     // Скрыт в списке объектов 
  long            InpZOrder=0;         // Приоритет на нажатие мышью 
  int BarEnd = 120;
  double priceMidLevel = Bid;
  double priceUpLevel  = Bid + 500*Point;
  
  if(!HLineCreate(0,"Level_Mid_"+IntegerToString(BarEnd,4,' '),0,priceMidLevel,Yellow,InpStyle,InpWidth,InpBack, 
     InpSelection,InpHidden,InpZOrder)) 
    { 
     Alert("Не удалось создать горизонталь Mid, ошибка ",GetLastError()); 
    }
  if(!HLineCreate(0,"Level_Up_"+IntegerToString(BarEnd,4,' '),0,priceUpLevel,Red,InpStyle,InpWidth,InpBack, 
     InpSelection,InpHidden,InpZOrder)) 
    { 
     Alert("Не удалось создать горизонталь Up, ошибка ",GetLastError()); 
    }       
  Sleep(3000);
  DeleteObj("Level_");      
 }
//+------------------------------------------------------------------+ 
//| Создает горизонтальную линию                                     | 
//+------------------------------------------------------------------+ 
bool HLineCreate(const long            chart_ID=0,        // ID графика 
                 const string          name="HLine",      // имя линии 
                 const int             sub_window=0,      // номер подокна 
                 double                price=0,           // цена линии 
                 const color           clr=clrRed,        // цвет линии 
                 const ENUM_LINE_STYLE style=STYLE_SOLID, // стиль линии 
                 const int             width=1,           // толщина линии 
                 const bool            back=false,        // на заднем плане 
                 const bool            selection=true,    // выделить для перемещений 
                 const bool            hidden=true,       // скрыт в списке объектов 
                 const long            z_order=0)         // приоритет на нажатие мышью 
 { 
//--- если цена не задана, то установим ее на уровне текущей цены Bid 
   if(!price) 
      price=SymbolInfoDouble(Symbol(),SYMBOL_BID); 
//--- сбросим значение ошибки 
   ResetLastError(); 
//--- создадим горизонтальную линию 
   if(!ObjectCreate(chart_ID,name,OBJ_HLINE,sub_window,0,price)) 
     { 
      Print(__FUNCTION__, 
            ": не удалось создать горизонтальную линию! Код ошибки = ",GetLastError()); 
      return(false); 
     } 
//--- установим цвет линии 
   ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr); 
//--- установим стиль отображения линии 
   ObjectSetInteger(chart_ID,name,OBJPROP_STYLE,style); 
//--- установим толщину линии 
   ObjectSetInteger(chart_ID,name,OBJPROP_WIDTH,width); 
//--- отобразим на переднем (false) или заднем (true) плане 
   ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back); 
//--- включим (true) или отключим (false) режим перемещения линии мышью 
//--- при создании графического объекта функцией ObjectCreate, по умолчанию объект 
//--- нельзя выделить и перемещать. Внутри же этого метода параметр selection 
//--- по умолчанию равен true, что позволяет выделять и перемещать этот объект 
   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection); 
   ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection); 
//--- скроем (true) или отобразим (false) имя графического объекта в списке объектов 
   ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden); 
//--- установим приоритет на получение события нажатия мыши на графике 
   ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,z_order); 
//--- успешное выполнение 
   return(true); 
  }
//=======================================================================================

void DeleteObj(string text)
 {
  string name = "";
  string substr = "";
  int obj_total=ObjectsTotal();
  //--- сбросим значение ошибки 
  ResetLastError(); 
  for(int i=0;i<obj_total;i++) 
   { 
    name=ObjectName(i);
    substr = StringSubstr(name, 0, 6);
    if(substr==text) 
      {
       if(!ObjectDelete(name))
         {
          Print("Ошибка удаления объекта ", GetLastError());
         }
      }    
   } 
 }

Сделал функцию для удаления группы объектов имеющих несколько одинаковых символов в начале имени. Решил протестировать. В скрипте создаю 2 горизонтальные линии , паузу, чтобы было визуально видно, что линии созданы, а затем их удаление. Но почему-то удаляется только одна линия. Помогите найти ошибку. Вроде код простой и всё на виду однако ж...)