Добавление строки в файл

Почему то не добавляются строки в файл,всегда одна строка,
добавление не происходит подскажите по возможности плз:

Если НачалоКвартала(Источник.Дата)<>НачалоКвартала(ТекущаяДата()) Тогда
        КаталогЗагрузки=СтрокаСоединенияИнформационнойБазы();
        МассивФайлов=НайтиФайлы("d:\base","*.lg");//Найти в заданном каталоге все файлы с расширением *.lg
        лФлаг=Ложь;
        Для Каждого ИмяФайла Из МассивФайлов Цикл

            Текст=Новый ТекстовыйДокумент();
            Текст.ДобавитьСтроку(ИмяПользователя()+"  "+СтрокаСоединенияИнформационнойБазы()+"   "+Строка(Источник));
            Текст.Записать("d:\base\lg.lg");

            лФлаг=Истина;
            Прервать;
        КонецЦикла;
        Если лФлаг=Ложь Тогда
            Текст=Новый ТекстовыйДокумент();
            Текст.ДобавитьСтроку(ИмяПользователя()+"  "+СтрокаСоединенияИнформационнойБазы()+"   "+Строка(Источник));
            Текст.Записать("d:\base\lg.lg");
        КонецЕсли;
    КонецЕсли;