求高手解答--读取listbox里的文字遇到分页字符分页并实现双面打印

   
    printer.canvas.font := listbox1.font;
我的程序是这样的：    
    assignprn(fp);
    rewrite(fp);
    i := 1;
    while i < listbox1.items.Count do
    begin
        s := listbox1.items[i];
       if copy(s, 1, 9) = 'PAGEBREAK' then
        begin
            closefile(fp);
            assignprn(fp);
            rewrite(fp);
            i := i + 1;
        end
        else
            writeln(fp, s);
        i := i + 1;
    end;
    closefile(fp);
现在遇到的问题是页被分割成单独的文件，导致没办法实现双面打印！求高手有什么方法能实现双面打印？多谢多谢！