Para abrir gaveta bem como acionar a guilhotina use esse bloco de comando que funciona, no fechamento da venda ai voce usa o codigo abaixo:
Detalhe esses comandos foram testados por mim pela DR700 L (tem diferenca da H e M)
var sPorta : string;
T : STRING;
hCommFile: THandle;
sPorta:= 'COM1';
hCommFile:= CreateFileA( pchar(sPorta), GENERIC_WRITE,
0, //not shared
nil, //no security
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0 {template} );
t:=#27+#109;
Status:=WriteFile( hCommFile,PChar(t)[0],
Length(t),
NumberWritten,
nil);
t:=#27+#112;
Status:=WriteFile( hCommFile,PChar(t)[0],
Length(t),
NumberWritten,
nil);
CloseHandle(hCommFile); //Fecha a porta de Comunicação