Терминал для COM порта

priem = Form2->Memo1->Lines->operator [](Form2->Memo1->Lines->Count - 1) + (char*)bufrd;
 
 Form2->Memo1->Lines->Delete(Form2->Memo1->Lines->Count - 1);
 Form2->Memo1->Lines->Add(priem);

ОК;ОК;ОК;ОК;ОК;ОК;ОК;ОК;

DWORD WINAPI ReadThread(LPVOID)
{
 COMSTAT comstat;
 DWORD btr, temp, mask, signal;
 
 overlapped.hEvent = CreateEvent(NULL, true, true, NULL);
 SetCommMask(COMport, EV_RXCHAR);
 while(1)
  {
   WaitCommEvent(COMport, &mask, &overlapped);
   signal = WaitForSingleObject(overlapped.hEvent, INFINITE);
   if(signal == WAIT_OBJECT_0)
    {
     if(GetOverlappedResult(COMport, &overlapped, &temp, true))
      if((mask & EV_RXCHAR)!=0)
       {
        ClearCommError(COMport, &temp, &comstat);
        btr = comstat.cbInQue;
        if(btr)
        {
         ReadFile(COMport, bufrd, btr, &temp, &overlapped);
         Printing(); // вот здесь выводим данные в Memo
        }
       }
    }
  }
}