external exception c0000008. Работа с COM портом.

//............................... поток WriteThead ............................
//----------------------------------------------------------------------------- 
 
WriteThread *writer;     //объект потока WriteThread
 
//--------------------------------------------------------------------------- 
 
//конструктор потока WriteThread, по умолчанию пустой 
__fastcall WriteThread::WriteThread(bool CreateSuspended) : TThread(CreateSuspended) 
{} 
//-----------------------------------------------------------------------------  
//главная функция потока, выполняет передачу байтов из буфера в COM-порт
void __fastcall WriteThread::Execute()
{
 DWORD temp, signal;    //temp - переменная-заглушка
 int lenbufwr=strlen(bufwr);
 if (lenbufwr<1) lenbufwr=1;
 overlappedwr.hEvent = CreateEvent(NULL, true, true, NULL);       //создать событие
 WriteFile(COMport, bufwr, lenbufwr, &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 TForm3::Button1Click(TObject *Sender)                     //                     1st sending
{
 Memo1Read();
 SortEdit();
 PaintGraph();
 Memo1Write();
 memset(bufwr,0,BUFSIZE);    //очистить программный передающий буфер, чтобы данные не накладывались друг на друга
 PurgeComm(COMport, PURGE_TXCLEAR);             //очистить передающий буфер порта
 AnsiString S,Str="",StrMemo="";
 for (int j=0; j<=EditCount;j++)
   for (int i=1; i<=Edit[j][0].Length();i++)
     for (int a=0; a<32;a++)
       {
        Str=Edit[j][a];
        StrMemo+=Str[i];
       }
 /*if (StrMemo.Length()%8>0)
    for(int i=0; i<(8-(StrMemo.Length()%8)); i++)
       StrMemo+='0'; */
 int leng=StrMemo.Length();
 for (int j=0; j<StrMemo.Length()/8; j++)                 //разделяю StrMemo для отправки по 8 бит
       {
        int a=0,b=0;
        for(int i=j*8+1; i<=(j+1)*8; i++)                        //перевод из двоичной в десятичную 8 бит
        {
                S=StrMemo[i];
                a=S.ToInt();
                b+=(a*pow(2,(j+1)*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;      //установить это свойство,
                                              //чтобы поток автоматически уничтожался после завершения
       }
}