Проблема с отправкой нулей.

//----------------------Writing----------------------------------------------
//---------------------------------------------------------------------------
//поток для записи последовательности байтов из буфера в COM-порт
class WriteThread : public TThread
{
private: 
  void __fastcall Printing();  //вывод состояния на экран 
protected: 
        void __fastcall Execute();      //основная функция потока 
public: 
        __fastcall WriteThread(bool CreateSuspended);  //конструктор потока 
}; 
//--------------------------------------------------------------------------- 
//............................... поток WriteThead ............................ 
WriteThread *writer;     //объект потока WriteThread
//--------------------------------------------------------------------------- 
//конструктор потока WriteThread, по умолчанию пустой 
__fastcall WriteThread::WriteThread(bool CreateSuspended) : TThread(CreateSuspended) 
{} 
//---------------------------------------------------------------------------
//главная функция потока, выполняет передачу байтов из буфера в COM-порт
void __fastcall WriteThread::Execute() 
{ 
 DWORD temp, signal;    //temp - переменная-заглушка
 overlappedwr.hEvent = CreateEvent(NULL, true, true, NULL);       //создать событие
 WriteFile(COMport, bufwr, strlen(bufwr), &temp, &overlappedwr);  //записать байты в порт (перекрываемая операция!)
 signal = WaitForSingleObject(overlappedwr.hEvent, INFINITE);     //приостановить поток, пока не завершится перекрываемая операция WriteFile
 if((signal == WAIT_OBJECT_0) && (GetOverlappedResult(COMport, &overlappedwr, &temp, 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  = "Передача прошла успешно";
} 
 
//---------------------------------------------------------------------------
//функция открытия и инициализации порта
void COMOpen()
{
 String portname;        //имя порта (например, "COM1", "COM2" и т.д.)
 DCB dcb = {0};                //структура для общей инициализации порта DCB
 COMMTIMEOUTS timeouts;  //структура для установки таймаутов
 portname = Form1->ComboBox1->Text;  //получить имя выбранного порта
 
 //открыть порт, для асинхронных операций обязательно нужно указать флаг FILE_FLAG_OVERLAPPED
 COMport=CreateFile(portname.c_str(),GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING,FILE_FLAG_OVERLAPPED, NULL);
 //здесь:
 // - portname.c_str() - имя порта в качестве имени файла, c_str() преобразует строку типа String в строку в виде массива типа char, иначе функция не примет
 // - GENERIC_READ | GENERIC_WRITE - доступ к порту на чтение/записть
 // - 0 - порт не может быть общедоступным (shared)
 // - NULL - дескриптор порта не наследуется, используется дескриптор безопасности по умолчанию
 // - OPEN_EXISTING - порт должен открываться как уже существующий файл
 // - FILE_FLAG_OVERLAPPED - этот флаг указывает на использование асинхронных операций
 // - NULL - указатель на файл шаблона не используется при работе с портами
 if(COMport == INVALID_HANDLE_VALUE)            //если ошибка открытия порта
  {
   Form1->SpeedButton1->Down = false;           //отжать кнопку
   Form1->StatusBar1->Panels->Items[0]->Text = "Не удалось открыть порт";       //вывести сообщение в строке состояния
   return;
  }
  else Form1->StatusBar1->Panels->Items[0]->Text = "  Порт " + portname+ " открыт успешно";
 
 //инициализация порта
 dcb.DCBlength = sizeof(DCB);   //в первое поле структуры DCB необходимо занести её длину,
                                //она будет использоваться функциями настройки порта
                                //для контроля корректности структуры
 
 //считать структуру DCB из порта
 if(!GetCommState(COMport, &dcb)) //если не удалось - закрыть порт и вывести сообщение об ошибке в строке состояния
  {
   COMClose();
   Form1->StatusBar1->Panels->Items[0]->Text  = "Не удалось считать DCB";
   return;
  }
 
 //инициализация структуры DCB
 dcb.BaudRate = StrToInt(Form1->ComboBox2->Text);       //задаём скорость передачи 115200 бод
 dcb.fBinary = TRUE;                                    //включаем двоичный режим обмена
 dcb.fOutxCtsFlow = FALSE;                              //выключаем режим слежения за сигналом CTS
 dcb.fOutxDsrFlow = FALSE;                              //выключаем режим слежения за сигналом DSR
 dcb.fDtrControl = DTR_CONTROL_DISABLE;                 //отключаем использование линии DTR
 dcb.fDsrSensitivity = FALSE;                           //отключаем восприимчивость драйвера к состоянию линии DSR
 dcb.fNull = FALSE;                                     //разрешить приём нулевых байтов
 dcb.fRtsControl = RTS_CONTROL_DISABLE;                 //отключаем использование линии RTS
 dcb.fAbortOnError = FALSE;                             //отключаем остановку всех операций чтения/записи при ошибке
 dcb.ByteSize = 8;                                      //задаём 8 бит в байте
 dcb.Parity = NOPARITY;                                        //отключаем проверку чётности
 dcb.StopBits = ONESTOPBIT;                                      //задаём один стоп-бит
 dcb.XonChar = TRUE;                                            //Задает символ XON используемый как для примема, так и для передачи.
 dcb.XoffChar = TRUE;                                            //Задает символ XOFF используемый как для примема, так и для передачи.
 //загрузить структуру DCB в порт
 SetCommState(COMport, &dcb);
 if(!SetCommState(COMport, &dcb)) //если не удалось - закрыть порт и вывести сообщение об ошибке в строке состояния
  {
   COMClose();
   Form1->StatusBar1->Panels->Items[0]->Text  = "Не удалось установить DCB";
   return;
  }
 
 //установить таймауты
 timeouts.ReadIntervalTimeout = 20;    //таймаут между двумя символами
 timeouts.ReadTotalTimeoutMultiplier = 1;  //общий таймаут операции чтения
 timeouts.ReadTotalTimeoutConstant = 1;       //константа для общего таймаута операции чтения
 timeouts.WriteTotalTimeoutMultiplier = 100;    //общий таймаут операции записи
 timeouts.WriteTotalTimeoutConstant = 1000;      //константа для общего таймаута операции записи
 
 //записать структуру таймаутов в порт
 SetCommTimeouts(COMport, &timeouts);
 if(!SetCommTimeouts(COMport, &timeouts))  //если не удалось - закрыть порт и вывести сообщение об ошибке в строке состояния
  {
   COMClose();
   Form1->StatusBar1->Panels->Items[0]->Text  = "Не удалось установить тайм-ауты";
   return;
  }
 
//установить размеры очередей приёма и передачи
 SetupComm(COMport,2000,2000);
 
 //создать или открыть существующий файл для записи принимаемых данных
 handle = open("test.txt", O_CREAT | O_APPEND | O_BINARY | O_WRONLY, S_IREAD | S_IWRITE);
 
 if(handle==-1)   //если произошла ошибка открытия файла
  {
   Form1->StatusBar1->Panels->Items[1]->Text = "Ошибка открытия файла";  //вывести сообщение об этом в командной строке
   Form1->Label6->Hide();                                               //спрятать надпись с именем файла
   Form1->CheckBox3->Checked = false;                                   //сбросить и отключить галочку
   Form1->CheckBox3->Enabled = false;
  }
 else { Form1->StatusBar1->Panels->Items[1]->Text = " test.txt открыт"; } //иначе вывести в строке состояния сообщение об успешном открытии файла
 
 PurgeComm(COMport, PURGE_RXCLEAR);  //очистить принимающий буфер порта
 
 reader = new ReadThread(false);   //создать и запустить поток чтения байтов
 reader->FreeOnTerminate = true;   //установить это свойство потока, чтобы он автоматически уничтожался после завершения
 
}
//---------------------------------------------------------------------------
//функция закрытия порта
void COMClose()
{
 //если поток записи работает, завершить его; проверка if(writer) обязательна, иначе возникают ошибки
 if(writer)writer->Terminate();
 //если поток чтения работает, завершить его; проверка if(reader) обязательна, иначе возникают ошибки
 if(reader)reader->Terminate();
 
 CloseHandle(COMport);  //закрыть порт
 COMport=0;     //обнулить переменную для дескриптора порта
 close(handle);     //закрыть файл для записи принимаемых данных
 handle=0;      //обнулить переменную для дескриптора файла
}
//---------------------------------------------------------------------------

//----------------------------Меню-побайтовой отправки-----------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
 memset(bufwr,0,BUFSIZE);    //очистить программный передающий буфер, чтобы данные не накладывались друг на друга
 PurgeComm(COMport, PURGE_TXCLEAR);             //очистить передающий буфер порта
 AnsiString S,Str="",StrMemo;
 StrMemo=Form1->Edit2->Text.c_str();
 int leng=StrMemo.Length();
 if (leng>0)                                          //Проверка длины строки
 {
        if (leng%8>0)
                for(int i=0; i<(8-(leng%8)); i++)
                        StrMemo+='0';
        int a=0,b=0;
        for(int i=1; i<9; i++)                        //перевод из двоичной в десятичную 8 бит
        {
                S=StrMemo[i];
                a=S.ToInt();
                b+=(a*pow(2,8-i));         //b=b+a*2^(8-i)
        }
        char x = (char)b;                          //конвертирование из бинарной(десятичной) в символьную   
        Str=(AnsiString)(x);                      //x в строковую
        char *y = Str.c_str();               // в char * для буфера
        strcpy(bufwr,y);                     //занести в программный передающий буфер строку из Edit1
        writer = new WriteThread(false);     //создать и активировать поток записи данных в порт
        writer->FreeOnTerminate = true;      //установить это свойство,
                                              //чтобы поток автоматически уничтожался после завершения
        }
}