DWORD WINAPI Thread (PVOID pParam)
{
    int t;

    HANDLE hVirtualCOM;
    MSG msg;
    AnsiString SendCommand;

    COMMTIMEOUTS CommTimeOuts;
    DCB dcb;

    PeekMessage(&msg, INVALID_HANDLE_VALUE,  0 ,  0 , PM_REMOVE);

    hVirtualCOM=CreateFile("\\\\.\\COM4",
                GENERIC_READ|GENERIC_WRITE,
                 0 ,
                NULL,
                OPEN_EXISTING,
                 0 ,//FILE_FLAG_OVERLAPPED,
                NULL);
    if (GetLastError())
    {
        MessageBox(NULL, FloatToStr(GetLastError()).c_str(), "Can't open port", MB_OK);
        return 1;
    }
    if (hVirtualCOM==INVALID_HANDLE_VALUE)
    {
        MessageBox(NULL, "Invalid handle value", "Can't open port", MB_OK);
        return  1 ;
    }
    GetCommState(hVirtualCOM, &dcb);
    dcb.BaudRate = CBR_256000;
    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(hVirtualCOM, &dcb);

    GetCommTimeouts(hVirtualCOM, &CommTimeOuts);

    CommTimeOuts.ReadIntervalTimeout=  0 ;
    CommTimeOuts.ReadTotalTimeoutMultiplier =  11 ;
    CommTimeOuts.ReadTotalTimeoutConstant = 11 ;
    CommTimeOuts.WriteTotalTimeoutMultiplier =  11 ;
    CommTimeOuts.WriteTotalTimeoutConstant =  11 ;

    SetCommTimeouts(hVirtualCOM, &CommTimeOuts);

    PurgeComm(hVirtualCOM, PURGE_RXCLEAR);
    PurgeComm(hVirtualCOM, PURGE_TXCLEAR);

    DWORD numbytes, numbytes_ok, temp;
    COMSTAT ComState;
    OVERLAPPED Overlap;
    char buf_in[ 255 ];
    char buf_out[ 255 ];
    numbytes =  255 ;
    memset(buf_in, '\0', numbytes);
    memset(buf_out, '\0', numbytes);

    ClearCommError(hVirtualCOM, &temp, &ComState);
    t=GetLastError();

//    "AT+CPBS=SM";
    t=WriteFile(hVirtualCOM, "AT",  2 , &numbytes_ok,  0 /*&Overlap*/);
    if (!t)
    {
        t=GetLastError();
        MessageBox(NULL, "Îøèáêà çàïèñè â COM ïîðò", "Îøèáêà", MB_OK);

//        MessageBox(NULL, FloatToStr(t).c_str(), "Îøèáêà", MB_OK);
    }

//    Sleep( 5000 );

    ClearCommError(hVirtualCOM, &temp, &ComState);

    WriteFile(hVirtualCOM, "AT+CPBR=1\n",  9 , &numbytes_ok,  0 /*&Overlap*/);
//    Sleep( 5000 );

    ClearCommError(hVirtualCOM, &temp, &ComState);

    if(!temp) ReadFile(hVirtualCOM, buf_in, numbytes, &numbytes_ok,  0 /*&Overlap*/);
    t=GetLastError();
//    Sleep( 5000 );
//    Sleep( 5000 );
    Form1->Memo1->Lines->Add(buf_in);
    CloseHandle(hVirtualCOM);
    CloseHandle(hThread);

ClearCommError(hVirtualCOM, &temp, &ComState);
    while( 1 )
    {
        ReadFile(hVirtualCOM, &dwRead,  1 , &numbytes_ok,  0 /*&Overlap*/);
        Sleep( [b]30 );[/b]

        ClearCommError(hVirtualCOM, &temp, &ComState);
        if (in==false)
        {
            Form1->ProgressBar1->Max=ComState.cbInQue;
            in=true;
        }
        if (ComState.cbInQue== 0 ) break;
        buf_in[z]=var;
        z++;
        k++;
        Form1->ProgressBar1->Position=k;
    }