Abrir caja de dinero

[caifan_0883]

Var
   F:TextFile;
 
Begin
    AssignFile(F,'COM1'); // O cualquier otro puerto
    Rewrite(f);
    WriteLn(f,#27#105); // Corte de la impresora
    WriteLn(f,#27#112#0#105#105); //Abre el cajon de dinero
    CloseFile(f); 
End;

Yo utilizo tambien el cajon de dinero AQSONIC y el NCR. En los 2 funciona correctamente. Saludos espero que te sea util.