Почему замедляется проведения документа?

Процедура ОбработкаПроведения(Отказ, Режим)

//    Движения.УстановкаСчетчик.Записывать = Истина;
//    Движения.НОТАР.Записывать = Истина;

    Текст = Новый ЧтениеТекста(Файл, КодировкаТекста.ANSI);
    Сообщить(Формат(ТекущаяДата(), "ДЛФ=T"));


    Для И1=1 По Размер Цикл
        Стр = Текст.ПрочитатьСтроку();
        ФайлДата       = СокрЛП(Сред(Стр,1,8));
        ФайлВремя      = СокрЛП(Сред(Стр,10,8));
        ФайлАбонентА   = СокрЛП(Сред(Стр,19,20));
        ФайлКод           = СокрЛП(Сред(Стр,40,10));
        ФайлАбонентБ   = СокрЛП(Сред(Стр,51,20));
        ФайлМинут      = СокрЛП(Сред(Стр,72,10));
        ФайлЛьгота       = СокрЛП(Сред(Стр,83,2));

            Движение = Движения.ВременнаяТаблицаМТС.Добавить();
            Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
            Движение.Период = Дата;
            Движение.АбонентА = ФайлАбонентА;
            Движение.Код      = ФайлКод;
            Движение.АбонентБ = ФайлАбонентБ;
            Движение.Дата = ФайлДата;
            Движение.Время = ФайлВремя;
            Движение.Льгота = ФайлЛьгота;
            Движение.Минут = Число(ФайлМинут);
            //Движения.ВременнаяТаблицаМТС.Записать();
    КонецЦикла;
    Движения.ВременнаяТаблицаМТС.Записывать = Истина;
    Сообщить(Формат(ТекущаяДата(), "ДЛФ=T"));


КонецПроцедуры