Программа для роботы с устройством через RS-232

class ReadThread : public TThread
{
 private:
        void __fastcall Printing();
 protected:
        void __fastcall Execute();
 public:
        __fastcall ReadThread(bool CreateSuspended);
};
//---------------------------------------------------------------------------
class WriteThread : public TThread
{
private:
    void __fastcall Printing();
protected:
        void __fastcall Execute();
public:
        __fastcall WriteThread(bool CreateSuspended);
};
 
ReadThread *reader;
 
__fastcall ReadThread::ReadThread(bool CreateSuspended) : TThread(CreateSuspended)
{}
 
void __fastcall ReadThread::Execute()
{
 COMSTAT comstat;
 DWORD btr, temp, mask, signal;
 
 overlapped.hEvent = CreateEvent(NULL, true, true, NULL);
 SetCommMask(COMport, EV_RXCHAR);
 while(!Terminated)
  {
   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);
         counter+=btr;
         Synchronize(Printing);
        }
       }
    }
  }
 CloseHandle(overlapped.hEvent);
 }
 
void __fastcall ReadThread::Printing()
{
 Form1->Memo1->Lines->Add((char*)bufrd);
 Form1->StatusBar1->Panels->Items[2]->Text = "Âñåãî ïðèíÿòî " + IntToStr(counter) + " áàéò";
 
 if(Form1->CheckBox3->Checked == true)
  {
   write(handle, bufrd, strlen(bufrd));
  }
 memset(bufrd, 0, BUFSIZE);
}

TStringList * list = new TStringList;
list->Add("Первая строка");
list->Add("Вторая строка");
list->Add("Третья строка");
for (int i = 0; i < list->Count(); i++) {
  if (list->Strings[1]) {
    ShowMessage("Это вторая строка списка: "+list->Strings[1]);
  }
}

int cnt = list->Count();
if (list->Strings[cnt]...
// предпоследней :
list->Strings[cnt-1] // и т.д.