Delphi File Closefile command

Question

I did a sample app with this code and it works for all printers USB, network so on:

AssignPrn(lOutputFile);
Rewrite(lOutputFile);

for liIndex := 0 to lsLines.Cou