Fórum Reimprimir cabeçalho com textfile #199164

Tenho um relatorio de várias páginas(35), usando TextFile(sem driver de impressão). Orelatorio fuinciona muito bem, só que na próxima página, necessito reimprimir o cabeçalho e não sei como fazer isso. Alguém sabe como fazer? O relatorio está mais ou menos assim:

var
arq: textfile;
begin
assignfile(arq,lpt1´);
rewrite(arq);
writeln(arq, ´Lista de Precos´);//Cabeçalho1
writeln(arq, ´nonenoenone.....);//cabeçalho2
tabela.first;
while...
...
end;
closefile(arq);
end;