Ошибка out of memory - Delphi - Ответ 6914167

//РАБОТА С H ФАЙЛОМ В ЦИКЛЕ
//Указываем размер массива
SetLength(TABLE_USL, 1);//ВОТ ОНА ОШИБКА. НАДО ЗАДАТЬ SetLength(TABLE_USL, 1000000); 
 
//Указываем размер массива отделений (используется внутри массива TABLE_USL)
SetLength(TABLE_OTDEL, 1);
 
 
//Очищаем и обнуляем переменные
current_string:='';//Текущая строка
counter:=0;//Счётчик
income_tags:=0;//Флаг интересующих нас тегов
PODR:=0;IDSERV:=0;PROFIL:=0;DATE_IN:='';DATE_OUT:='';DS:='';RAZDEL_USL:=0;CODE_USL:='';
all_otdel:='';//Переменная содержащая все отделения
OTDEL_records_count:=0;  //Число непустых записей в массиве
otdel_exist:=1;
 
 
AssignFile (H_input_file, H_input_file_path);
Reset (H_input_file);
while not EOF(H_input_file) do
begin
//Точка начала чтения H файла
H_file_begin:
readln(H_input_file, current_string);
 
//Получение содержимого тегов
//Содержимое интересующих нас тегов находится между тегов USL и /USL
//Если строка содержит тег USL, то значит далее будут интересующие нас теги
if(CountPos('<USL>',current_string)>0) then begin income_tags:=1;
//Переходим к точке начала чтения H файла, чтобы не выполнять инструкции ниже (экономим время)
goto H_file_begin; end;
//Если строка содержит тег /USL, то значит интересующие нас теги закончились
if(CountPos('</USL>',current_string)>0) then begin income_tags:=0; end;
 
 
 
//Если флаг интересующих нас тегов активен
if (income_tags=1)then begin
//Если строка содержит тег IDSERV, то получаем его содержимое, заменяя в тексте точку на запятую
if(CountPos('<IDSERV>',current_string)>0) then begin IDSERV:=StrToFloat(StringReplace(get_stext('<IDSERV>','</IDSERV>',current_string),'.',',',[rfReplaceAll] )); end;
//Если строка содержит тег PODR, то получаем его содержимое, заменяя в тексте точку на запятую
if(CountPos('<PODR>',current_string)>0) then begin PODR:=StrToFloat(StringReplace(get_stext('<PODR>','</PODR>',current_string),'.',',',[rfReplaceAll] )); end;
//Если строка содержит тег PROFIL, то получаем его содержимое, заменяя в тексте точку на запятую
if(CountPos('<PROFIL>',current_string)>0) then begin PROFIL:=StrToFloat(StringReplace(get_stext('<PROFIL>','</PROFIL>',current_string),'.',',',[rfReplaceAll] )); end;
//Если строка содержит тег DATE_IN, то получаем его содержимое
if(CountPos('<DATE_IN>',current_string)>0) then begin DATE_IN:=get_stext('<DATE_IN>','</DATE_IN>',current_string);  end;
//Если строка содержит тег DATE_OUT, то получаем его содержимое
if(CountPos('<DATE_OUT>',current_string)>0) then begin DATE_OUT:=get_stext('<DATE_OUT>','</DATE_OUT>',current_string);  end;
//Если строка содержит тег DS, то получаем его содержимое
if(CountPos('<DS>',current_string)>0) then begin DS:=get_stext('<DS>','</DS>',current_string);  end;
//Если строка содержит тег RAZDEL_USL, то получаем его содержимое, заменяя в тексте тире на запятую
if(CountPos('<RAZDEL_USL>',current_string)>0) then begin RAZDEL_USL:=StrToFloat(StringReplace(get_stext('<RAZDEL_USL>','</RAZDEL_USL>',current_string),'-',',',[rfReplaceAll] )); end;
 
//Если строка содержит тег CODE_USL, то получаем его содержимое, заменяя в тексте точку на запятую
if(CountPos('<CODE_USL>',current_string)>0) then begin CODE_USL:=get_stext('<CODE_USL>','</CODE_USL>',current_string);
//Так как тег CODE_USL является последним интересующим нас тегом - то мы вставляем новый элемент в массив и увеличиваем значение счётчика
 
 
 
//Вставка элементов в массив TABLE_USL
TABLE_USL[counter,1]:=IDSERV;
TABLE_USL[counter,2]:=PODR;
TABLE_USL[counter,3]:=PROFIL;
TABLE_USL[counter,4]:=DATE_IN;
TABLE_USL[counter,5]:=DATE_OUT;
TABLE_USL[counter,6]:=DS;
TABLE_USL[counter,7]:=RAZDEL_USL;
TABLE_USL[counter,8]:=CODE_USL;
 
//Увеличиваем размер массива
SetLength(TABLE_USL, Length(TABLE_USL)+1);//И ЭТО ОШИБКА?
 
 
 
//Работа с массивом TABLE_OTDEL
//Смотрим - есть ли у нас такой отдел, делим на 10000 чтобы убрать нули
if(CountPos(' '+floattostr(PODR/10000)+' ',all_otdel)=0) then
begin
//Вставка элементов в массив TABLE_OTDEL
TABLE_OTDEL[OTDEL_records_count]:=PODR/10000;
//Увеличиваем размер массива
SetLength(TABLE_OTDEL, Length(TABLE_OTDEL)+1);
//Добавляем отдел в переменную
all_otdel:=all_otdel+' '+floattostr(PODR/10000)+' ';
//Увеличиваем число непустых записей в массиве
OTDEL_records_count:=OTDEL_records_count+1;
end;
//Конец работы с массивом
 
 
 
 
//Увеличиваем значение счётчика
counter:=counter+1;
 
 
end;
//Конец проверки на тег  CODE_USL
 
end;
//Конец проверки на флаг  интересующих нас тегов
 
 
 
 
end;
CloseFile (H_input_file);
//Запоминаем количество непустых записей в массиве
H_records_count:=counter;
//КОНЕЦ РАБОТЫ С H ФАЙЛОМ В ЦИКЛЕ