****唉！！！！愚笨死我了！！！一下午没解决，跪求高手出手相求！！！！！！

Question

在form1中写了控制from2报表的打印机esc控制命令
但是就是不起自动退纸的作用，一下午了，没成，唉，累死，笨死我算了。
没辙，请高手看一下代码，指教方法，在此跪谢！打印机是panasonic1121的,但是控制台命令是epson的。
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  f1:TEXTFILE;
begin
 ASSIGNFILE(F1,'LPT1'); REWRITE(F1);
 WRITELN(F1,chr(27)+chr(64)); //相当于esc加@初如化打印
 writeln(f1,chr(27)+chr(70)+'1');//对照说明书查到的退纸命令，相当于esc加f加n.
 CLOSEFILE(F1);
 form2.QuickRep1.Print;//控制form2报表打印，打印是打印了，但不退纸，根本不起作用end;