Código:
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.