Delphi - Manejo del cajon de dinero

¿ Alguien conoce como manejar un cajon de dinero para abrirlo cuando se realiza una venta y no dejar vender hasta no cerrar el cajon ?

Gracias por su ayuda.

Para abrir el cajón portamonedas debes enviarles unos carácteres de control, para ello puedes enviarselos directamente al puerto donde está conectado. COM1,COM2, etc. Si está conectado a una impresora de ticket debes enviarlo al puerto donde esté conectada esta.
Los codigos de control son dependientes del fabricante del cajón pero esto sirven para la mayoría: 27, 112, 0, 250, 0 250

AssignFile(port, 'LPT1');
Rewrite(port);
write(port,chr(strtoint('27')));
write(port,chr(strtoint('112')));
write(port,chr(strtoint('0')));
// Estos que siguien muchas veces no son necesarios
write(port,chr(strtoint('250')));
write(port,chr(strtoint('0')));
write(port,chr(strtoint('250')));
closeFile(port);

Sobre ver si está abierto el cajón no te puedo ayudar. La verdad es que no se si hay comunicación bidireccional.