Abrir Cash Drawer

[meetworks]

Hola a todos. El cajón portamonedas que tengo montado con las impresoras Epson Tm-U220 se abre fácilmente con el siguiente código:

procedure AbrirCajon;
var f : TextFile;
begin
AssignFile(f,'lpt1');
try
Rewrite(f);
Writeln(f,#27+'p0'+#100+#0);
finally
CloseFile(f);
end;
end;

Espero que esto resuelva tu problema.
Saludos.