Открытие COM порта (WinAPI)

bool OpenPort(String Com,int Baud,Char Parity,int Data,String Stop,Char Control)
{
    DCB *vDCB;
    hPort=CreateFile(Com.c_str(),GENERIC_READ|GENERIC_WRITE,0,NULL,OPEN_EXISTING,0,NULL);
    if (hPort==INVALID_HANDLE_VALUE) {
        int E=GetLastError();
        String tmp;
        switch (E) {
        case 2:tmp="Порт не найден!";
               break;
        case 5:tmp="Порт занят!";
               break;
        default:
            tmp="Ошибка: "+IntToStr(E);
            ;
        }
        SetColorLines("Порт ("+fMain->SB->Panels->Items[0]->Text+") не открыт! "+tmp,clRed);
        return false;
    }
    vDCB=(DCB*)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(DCB));
    GetCommState(hPort,vDCB);
    String StrDCB=IntToStr(Baud)+",";
    StrDCB+=StrDCB.StringOfChar(Parity,1)+",";
    StrDCB+=IntToStr(Data)+",";
    StrDCB+=Stop;
    if (Control!=0) {
        StrDCB=StrDCB+","+StrDCB.StringOfChar(Control,1);
    }
    if (!BuildCommDCB(StrDCB.c_str(),vDCB)){
        SetColorLines(GetLastError(),clRed);
        CloseHandle(hPort);
        return false;
    }
    SetCommState(hPort,vDCB);
    HeapFree(GetProcessHeap(),0,vDCB);
    COMMTIMEOUTS* CommTimeOut;
    CommTimeOut=(COMMTIMEOUTS*)HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,sizeof(COMMTIMEOUTS));
    CommTimeOut->WriteTotalTimeoutMultiplier=0;
    CommTimeOut->WriteTotalTimeoutConstant=100;
    CommTimeOut->ReadIntervalTimeout=0;
    CommTimeOut->ReadTotalTimeoutMultiplier=0;
    CommTimeOut->ReadTotalTimeoutConstant=TimeOut;
    SetCommTimeouts(hPort,CommTimeOut);
    HeapFree(GetProcessHeap(),0,CommTimeOut);
    PurgeComm(hPort,PURGE_TXCLEAR|PURGE_RXCLEAR);
    SetCommMask(hPort,EV_RXCHAR);
    return true;
}