Приём данных компонентом TBComPort в отдельном потоке

class NewThread : public TThread  //заголовочный файл
{
private:
protected:
    void __fastcall Execute();
    void __fastcall DisplayLabel();
public:
    __fastcall NewThread(bool CreateSuspended);
 
    bool start;
    int count;
};
 
// cpp файл
 
void __fastcall DisplayLabel()
{
  Form1->Label1->Caption=random(100);
}
//---------------------------------------------------------------------------
void __fastcall NewThread::Execute()
{
FreeOnTerminate=true;
while (!Terminated)
{
if (count==1)
 {Synchronize(&DisplayLabel);}
Sleep(1);
}
}

__fastcall NewThread::DisplayLabel()

void __fastcall NewThread::DisplayLabel() /* NewThread::   !!!! */
{
  Form1->Label1->Caption= random(100);
}

void __fastcall ComThread::RXProc() //функция для изменения перем.
    {
Form1->BComPort1->ReadStr(Form1->St,100); //читаем порт
if (Form1->St=='x') Form1->temp=100; //если приняли символ x переменной темп присв. 100
}
 
void __fastcall ComThread::Execute()
{
FreeOnTerminate=true;
while(!Terminated)
{
RXProc();
Sleep(1);
}
}

void __fastcall TForm1::BComPort1RxChar(TObject *Sender, int Count)
{
String St;
 Form1->BComPort1->ReadStr(St,100); //принимаем
Label1->Caption=St;  //выводим на экран
}

void __fastcall ComThread::Execute()
{
FreeOnTerminate=true;
while(!Terminated)
  {
   if( Received ) {  RXProc(); Received= false; }
   Sleep(1);
  }
}

void __fastcall TForm1::BComPort1RxChar(TObject *Sender, int Count)
{
 Received= true;
}