COM-порт, как правильно настроить

{  String ComPort = "\\\\.\\COM3";
   String Speed = "9600";
   
   dcb=(DCB*)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(DCB));
   dcb->DCBlength=sizeof(DCB);
 
   BuildCommDCB("baud=9600 parity=N data=8 stop=1",dcb);
 
   dcb->fNull = TRUE;      //отбрасываем нулевые байты
   dcb->BaudRate = StrToInt(Speed);
 
   //тайминги
   ct.ReadIntervalTimeout = 5;
   ct.ReadTotalTimeoutMultiplier = 2;
   ct.ReadTotalTimeoutConstant=2;
   ct.WriteTotalTimeoutMultiplier = ct.WriteTotalTimeoutConstant=0;
 
   port=CreateFile(ComPort.c_str(), GENERIC_READ,0,NULL,OPEN_EXISTING,0,NULL);
 
      SetCommState(port,dcb);
      SetCommTimeouts(port,&ct);
      HeapFree(GetProcessHeap(),0,dcb);
 
      SetupComm(port,256,256);  //размеры(в байтах)очередей приема и передачи
 
      PurgeComm(port,PURGE_TXCLEAR|PURGE_RXCLEAR);    //обнуление буфера, но он не обнуляется т.к. остаются данные после того, 
                        //поработает другая программа.. 
      tmrReadPort->Enabled = True;  //в таймере идет считывание с порта
}
 
 
void __fastcall TMainForm::tmrReadPortTimer(TObject *Sender)
{
 
TStringList *inCOMstr = new TStringList;
DWORD    bc;
   
   byte buf_in[256];
   memset(buf_in, 0x00, 256);
   int value;
   AnsiString s = AnsiString((char*)buf_in);
 
   ReadFile(port,buf_in,256,&bc,NULL);
 
  //дальше обработка информации в buf_in
 
}

String ComPort = "COM3";

//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
char com[4]="COM6";
 
DCB dcb;
HANDLE hLpt =
CreateFile(com, GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL);
SetupComm(hLpt, BUSZ, BUSZ);  // размер буфера чтения / записи
 
BOOL fSuccess=GetCommState(hLpt, &dcb); // читаем текущие настройки порта
if (!fSuccess)       // проверяем наличие ошибки открытия
{
Label6->Caption=("ошибка порта ");
return;   // если порт не открывается - выход из процедуры
}
else
{
Label6->Caption=("открыт порт ");
 
}
//далее установим наши параметры
dcb.BaudRate = CBR_9600;      
dcb.fBinary = TRUE;
dcb.fOutxCtsFlow = FALSE;
dcb.fOutxDsrFlow = FALSE; 
dcb.fDtrControl = DTR_CONTROL_HANDSHAKE; 
dcb.fDsrSensitivity = FALSE; 
dcb.fNull = FALSE; 
dcb.fRtsControl = RTS_CONTROL_DISABLE; 
dcb.fAbortOnError = FALSE;
dcb.ByteSize = 8; 
dcb.Parity = NOPARITY; 
dcb.StopBits = 1;
 
 
SetCommState(hLpt, &dcb);  //запишем параметры в порт
 
 
COMMTIMEOUTS CommTimeOuts;
GetCommTimeouts(hLpt, &CommTimeOuts);
CommTimeOuts.ReadIntervalTimeout= 100;
CommTimeOuts.ReadTotalTimeoutMultiplier = 1; 
 
CommTimeOuts.ReadTotalTimeoutConstant = 1000;
 
CommTimeOuts.WriteTotalTimeoutMultiplier = 1;
CommTimeOuts.WriteTotalTimeoutConstant = 1000;
SetCommTimeouts(hLpt, &CommTimeOuts);
 
 
PurgeComm(hLpt, PURGE_RXCLEAR);  // очистка буфера приема
PurgeComm(hLpt, PURGE_TXCLEAR);  // очистка буфера передачи
 
// далее чтение порта
BOOL bResult;
char buf[BUSZ]; // массив BUSZ букв
 
DWORD dwEvtMask;
SetCommMask(hLpt, EV_RXCHAR);  // установить маску на отслеживание драйвером события - чтение байта
bResult=WaitCommEvent(hLpt, &dwEvtMask, NULL); // событие приема байта
loop: if (!(bResult&&(dwEvtMask&EV_RXCHAR)))
{
bResult=WaitCommEvent(hLpt, &dwEvtMask, NULL); // событие приема байта
goto loop;                 // ожидание приема байта
} else {};
bResult =
ReadFile(hLpt, &buf, BUSZ, &ret, NULL);
 
if (!bResult) { ShowMessage("COM6 Read Error"); } // если ноль - то ошибка