开钱箱时打印机走纸

我给别人写了一个程序，其中要用程序打开钱箱，钱箱接在打印机上，而打印机连在LTP1端口上。
我从网上搜了一些开钱箱的代码，如下：procedure OpenCashBox;
var
  f: TextFile;
begin
  try
    AssignFile(f, 'lpt1');
    ReWrite(f);
    try
      Writeln(f, #27 + #112 + #0 + #50 + #200);
    finally
      CloseFile(f);
    end;
  except  end;
end;
用这段代码倒是能打开钱箱，但是打印机会走一点纸，就是出来一段空白的纸。
我搜了一下网上的帖子，把 WriteLn 写入的字符换成了#27  + #112 + #0   + #100 + #100
和
#27  + #112 + #0   + #50  + #200，但是依然走空白纸。请问大伙，用怎样的开钱箱命令才能不走纸啊？有些过类似程序的朋友是如何打开钱箱的？
先谢谢大伙看我的帖子！