Программирование COM порта в Win XP ?

bool __fastcall ThreadCom::Inicialize()
{
   DCB dcb;
   COMMTIMEOUTS MyTimeouts;
   ZeroMemory(&dcb, sizeof(DCB));
   ZeroMemory(&MyTimeouts, sizeof(COMMTIMEOUTS));
   //-------------------------------------------------------
   //-------------------------------------------------------
   hCom_1 = CreateFile("COM1", GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, NULL);
   if(hCom_1 == INVALID_HANDLE_VALUE) // если порт не удалось открыть
   {
     return 0;
   }
   //-------------------------------------------------------
   if(!GetCommState(hCom_1, &dcb))
   {
     CloseHandle(hCom_1);
     return 0;
   }
   if(!GetCommTimeouts(hCom_1,&MyTimeouts))
   {
     CloseHandle(hCom_1);
     return 0;
   }
   //-------------------------------------------------------
   dcb.BaudRate = CBR_1200; // скорость передачи
   //dcb.fBinary = TRUE; // бинарный режим работы
   dcb.fParity = FALSE; // контроль четности запрещен
   dcb.ByteSize = 8; // размер байта данных
   dcb.StopBits = ONESTOPBIT; // один стоповый бит
   //dcb.Parity = NOPARITY; // контроля четности нет
   dcb.fNull = FALSE; // принимать нулевые байты
   //-------------------------------------------------------
   //dcb.fDtrControl = DTR_CONTROL_ENABLE;
   //dcb.fRtsControl = RTS_CONTROL_TOGGLE;
   //dcb.fDsrSensitivity = 0;
   //dcb.fOutxCtsFlow = 0;
   //dcb.fOutxDsrFlow = 0;
   //-------------------------------------------------------
   MyTimeouts.ReadIntervalTimeout=15;
   MyTimeouts.ReadTotalTimeoutMultiplier=1;
   MyTimeouts.ReadTotalTimeoutConstant=250;
   MyTimeouts.WriteTotalTimeoutMultiplier=1;
   MyTimeouts.WriteTotalTimeoutConstant=250;
   //-------------------------------------------------------
   if(!SetCommState(hCom_1, &dcb))
   {
     CloseHandle(hCom_1);
     return 0;
   }
   if(!SetCommTimeouts(hCom_1,&MyTimeouts))
   {
     CloseHandle(hCom_1);
     return 0;
   }
   return 1;
}

//---------------------------------------------------------------------------
bool __fastcall ThreadCom::ReadPort(char *lpBuf, DWORD dwReadBytes)
{
  //-------------------------------------------------------------------------
  memset(&RD_OL, 0, sizeof(RD_OL));
  memset(&EV_OL, 0, sizeof(EV_OL));

  SetCommMask(hCom_1, EV_RXCHAR);

  RD_OL.hEvent = CreateEvent(NULL, TRUE, TRUE, NULL);
  EV_OL.hEvent = CreateEvent(NULL, TRUE, TRUE, NULL);
  //-------------------------------------------------------------------------
  if((RD_OL.hEvent == NULL)||(EV_OL.hEvent == NULL))
  {
    CloseHandle(hCom_1);
    return false;
  }
  //-------------------------------------------------------------------------
  if(WaitCommEvent(hCom_1, &dwCommEv, &EV_OL) == 0)// ждем события порта
  {
    CloseHandle(hCom_1);
    return false;
  }
  WFSO = WaitForSingleObject(EV_OL.hEvent, INFINITE);
  if(WFSO == WAIT_OBJECT_0)
  {
    if(!ReadFile(hCom_1, lpBuf, dwReadBytes, &dwRead, &RD_OL))
    {
      Form1->ListBox1->Items->Append("Ошибка чтения из порта");
      CloseHandle(hCom_1);
      return false;
    }
    WFSO1 = WaitForSingleObject(RD_OL.hEvent, INFINITE);
    if(WFSO1 == WAIT_OBJECT_0)// обьект перешол в сигнальное состояние
    {
            if(!GetOverlappedResult(hCom_1, &RD_OL, 0, FALSE))
            {
              Form1->ListBox1->Items->Append("Результат чтения не получен!");
              CloseHandle(hCom_1);
              return false;
            }
    }
  }
  ReturnReadBytes(dwRead);
  CloseHandle(RD_OL.hEvent);
  CloseHandle(EV_OL.hEvent);
  return true;
}
//---------------------------------------------------------------------------