POS收银软件打开钱柜的代码

钱柜用电话线连到小票打印机上，与电脑主机没有任何联系。
而想要程序控制钱柜，只能向小票打印机发指令，再由小票打印机把钱柜打开。
下列是用Delphi实现的控制指令：

procedure openCashDrawer; //开钱箱
var
tf: textfile;
begin
try
    assignfile(tf, lpt1 );
    rewrite(tf);
    writeln(tf, chr(27) + chr(112) + chr(0) + chr(18) + chr(22));
finally
    closefile(tf);
end;
end;