...
                       memset(bufwr,0,BUFSIZE);

                       int data[] = { 1, 1, 2, 2, 2, 2, 2, 2};
			for (int i = 0; i < 7; i++)
			{
				w = data[i];
				q = q + w;
			}
                        PurgeComm(COMport, PURGE_TXCLEAR); //очистить передающий буфер порта
			strcpy(bufwr, q.c_str()); //занести в программный передающий буфер строку из Edit1
			writer = new WriteThread(false); //создать и активировать поток записи данных в порт
			writer->FreeOnTerminate = true;

WriteFile(COMport, data, sizeof(data), &written, nullptr);

void __fastcall WriteThread::Execute()
{
	//NameThreadForDebugging(System::String(L"WriteThread"));
	//---- Place thread code here ----
	DWORD temp1, signal1; //temp1 - переменная-заглушка
	overlappedwr.hEvent = CreateEvent(NULL, true, true, NULL); //создать событие
	WriteFile(Ex_Operator->COMport1, Ex_Operator->bufwr1, strlen(Ex_Operator->bufwr1), &temp1, &overlappedwr); //записать байты в порт (перекрываемая операция!)
	signal1 = WaitForSingleObject(overlappedwr.hEvent, INFINITE); //приостановить поток, пока не завершится перекрываемая операция WriteFile
	if((signal1 == WAIT_OBJECT_0) && (GetOverlappedResult(Ex_Operator->COMport1, &overlappedwr, &temp1, true)))
		fl = true; //если операция завершилась успешно, установить соответствующий флажок
	else
		fl = false;
	Synchronize(Printing); //вывести состояние операции в строке состояния
	CloseHandle(overlappedwr.hEvent); //перед выходом из потока закрыть объект-событие
}

//---------------------------------------------------------------------------

//вывод состояния передачи данных на экран
void __fastcall WriteThread::Printing()
{
	if(!fl) //проверяем состояние флажка
	{
		//Form1->StatusBar1->Panels->Items[0]->Text = "Ошибка передачи";
		return;
	}
	//Form1->StatusBar1->Panels->Items[0]->Text = "Передача прошла успешно";
}
//---------------------------------------------------------------------------

int data[] = { 0x01, 0x01, 0x02, 0x02, 0x02, 0x02, 0x02, 0x02};
WriteFile(COMport, data, sizeof(data), &temp, &overlappedwr);

#define nullptr 0

WriteFile(COMport, data, sizeof(data), &written, nullptr);

Event

WriteFile(COMport, Ex_Operator->bufwr1, strlen(Ex_Operator->bufwr1), &written, nullptr);

overlappedwr.hEvent = CreateEvent(NULL, true, true, NULL); //создать событие

bool __fastcall TForm1::WriteComData(int data[])

 int data[] = { 0xd5,0x05, 0x31, 0x00, 0x0D}; //05 31 00
	WriteComData(data);