Добрый вечер!
Подскажите пожалуйста почему метод Printer.NewPage() вмето вставки разрыва страницы вставляет пустую страницу, точнее определённое количество пустых текстовых линий, которое соответствует количеству линий на странице.

Вот кусок кода где я данный метод использую

    AssignPrn(PrintText);
    Rewrite(PrintText);    

    for Line := 0 to Memo1.Lines.Count - 1 do Begin
        str := Memo1.Lines[Line];
        //если строка = '$EndPage' то начать новую страницу, в противном случае вставить навую строку.
        if str =  '$EndPage' then
            Printer.NewPage()
        else
            Writeln(PrintText, str);
    end;

    CloseFile(PrintText); {Closes the printer variable}

Зарание спасибо.