Abrir caja de dinero

[look]

VAR f : TextFile;

Código Delphi [-]
AssignFile(f,'lpt1');
  Rewrite(f);
  Writeln(f,#27+'p0'+#100+#0);
  closeFile(f);

este codigo me funciona bien con un cajon dinapos conectado por cable modem a una impresora POS
o

Código Delphi [-]
inicializacion 27,33,1
acceso a puerto 27,61,1
apertura cajon 27,112,48
finalizacion 27,33,0


 
 Var
    cajon : Text;
    
  Begin
    assignFile(cajon, 'com1');
    rewrite(cajon);  //apertura del archivo
    try
      write(cajon, #27#33#1); {esto es la secuencia 27,33,1 que ya tenes}
      //etcetera
    finally
      Close(cajon);  //cerrar el archivo
    end;
  end;

talvez sirve....