Otra manera de abrir el Cajon es un TPRINTER;
para esto primero necesitas poner en Unit a QPrinters,
ya hecho esto ahora puedes hacer lo siguiente
Código Delphi
[-]
Printer.begindoc;
printer.Canvas.font.size:=0;
printer.Canvas.font.Name:='Control';
printer.Canvas.TextOut(0,0,'A');
printer.enddoc;
Esto te abrirá el cajón; espero te sirva de ayuda