Чтение с COM порта потока данных на WinAPI функциях.

bool __fastcall TMainForm::OpenScaner()
{
   DCB ComDcb;
   COMMTIMEOUTS TimeOuts;
   int ok;
   // открытие СОМ- порта
   hCOM_Scaner = INVALID_HANDLE_VALUE;
   memset(&ComDcb, '\0', sizeof(DCB));
   String ComPort = "COM" + IntToStr(ScanerCom);
   String Speed= IntToStr(ScanerBound);
   hCOM_Scaner = CreateFile(ComPort.c_str(), GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL);
   ok = hCOM_Scaner != INVALID_HANDLE_VALUE;
   String tmp = "baud=" + Speed + " parity=N data=8 stop=1";
   ok = ok && BuildCommDCB(tmp.c_str(), &ComDcb);
   ComDcb.fDtrControl = DTR_CONTROL_ENABLE;
   ComDcb.fBinary = TRUE;
   ok = ok && SetCommState(hCOM_Scaner, &ComDcb);
   ok = ok && GetCommTimeouts(hCOM_Scaner, &TimeOuts);
   TimeOuts.ReadTotalTimeoutMultiplier = 50;
   ok = ok && SetCommTimeouts(hCOM_Scaner, &TimeOuts);
   if ((!ok) && (hCOM_Scaner != INVALID_HANDLE_VALUE)){
      showError("Неможливо установити параметри СОМ-порту сканера.");
      WriteLog("Неможливо установити параметри СОМ-порту сканера.", MainForm->isLog);
      CloseHandle(hCOM_Scaner);
      hCOM_Scaner = INVALID_HANDLE_VALUE;
      return false;
   }// if
   if (hCOM_Scaner == INVALID_HANDLE_VALUE){
      showError("COM-порт сканера не відкривається.");
      WriteLog("COM-порт сканера не відкривається.", MainForm->isLog);
      return false;
   }// if
   Stop = true;
   //Создаем нить для сканера
   return true;
}
//---------------------------------------------------------------------------
bool __fastcall TMainForm::CloseScaner()
{
  // Закрываем COM порт
  Stop = false;
  CloseHandle(hCOM_Scaner);
  return true;
}
int __fastcall TMainForm::ReadPort( unsigned char *buf, int len)
{
   DWORD rTmp;
   if(ReadFile(hCOM_Scaner, buf, len, &rTmp, NULL)){
      return rTmp;
   }
   Application->ProcessMessages();
   return 0;
}