procedure WriteComm(A:byte);
 var
  Transmit:array [0..255] of char;
 begin
  //послать один символ в порт
   KolByte:=1;
   Transmit[0]:=chr(A);
   WriteFile(CommHandle,Transmit,KolByte,KolByte,@Ovr);
 end;
...
  WriteComm(X);
...

1.Для каждого считывания штрих-кода нужно набрать комбинацию клавиш (в
английской раскладке)
([Ctrl] + [Shift] + [V])+ [T]+ ([Ctrl] + [Shift] + [M])

3.Данная команда позволяет получить от сканера визуальный эффект, который
недвусмысленно покажет, что сканер находится в рабочем состоянии и то, что программа
получила обратную связь, что весьма ценно для разработчиков, которые не знакомы с этим
классом устройств.
// Подаем команду сканеру
///////////////////////////////////////////////////////////////////////////////////////
...
char buff[1000] = {0};
// Подготавливаем строку
char commy[11] ={0x16,'M',0x0d,};
strcat(commy,"TRGMOD3.");
DCB PortSettings;
DWORD dwNumberOfBytesWritten = 0, dwNumberOfBytesRead = 0, dwBodySize = 0;
// Посылаем строку на COM порт
if ( ! WriteFile(hPort, commy, 11, &dwNumberOfBytesWritten, NULL) )
....

.Для каждого считывания штрих-кода нужно набрать комбинацию клавиш