La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  24145 - COMO ABRIR UNA CAJA DE DINERO
Autor:  Daniel Iglesias Murguia
Como puedo abrir la caja de dinero que se conecta a la impresora..
en clipper chr(7) pero no se como hacerlo en delphi si tienen un ejemplo se los agradezco...
  Respuesta:  Daniel Iglesias Murguia
Aqui Tiene el codigo para poder abrir una caja de dinero despues de imprimir un ticket

procedure TForm1.Button1Click(Sender: TObject);
var
nPrn:TextFile;
abrir:string;
begin
abrir:=#7;
AssignFile(nPrn, 'LPT1');
Rewrite(nPrn);
WriteLn(nPrn,abrir);
CloseFile(nPrn);
end;

para lo que les pueda servir............