Ответы при работе с модемом

void __fastcall TForm2::SpeedButton5Click(TObject *Sender)
{
  if (SpeedButton5->Down)
   {
   Memo2->Clear();
   RichEdit1->Clear();
 
   SpeedButton5->Enabled = false;
   ComPortOpen();
   if (ComPortActive == true)
   {
    Form2->Memo2->Lines->Add("Порт '" + Form2->ComboBox2->Text + "' открыт.");
   }
   else {
   Form2->Memo2->Lines->Add("Не удалось открыть порт '" + Form2->ComboBox2->Text + "'.");
   SpeedButton5->Enabled = true;
   SpeedButton5->Down = false;
   }
   InitModem();
   Timer1->Enabled = true;
   ring();
   }
}
//---------------------------------------------------------------------------
bool WaitMsg (String data)
{
 TSearchTypes option;
 if (Form1->RichEdit1->FindTextA(Form1->RichEdit1->Text.SetLength(data.Length()), LogLength, Form1->RichEdit1->Text.Length(), option << stWholeWord) != -1)
 {
 LogLength = Form2->RichEdit1->Text.Length();
  return true;
 }
 else {return false;}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
   if (WaitMsg(Edit2->Text) == true)
   {
    Memo2->Lines->Add("Модем успешно инициализирован.");
    Timer2->Enabled = true;
    Timer1->Enabled = false;
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Timer2Timer(TObject *Sender)
{
  if (WaitMsg("CONNECT") == true)
  {
  Memo2->Lines->Add("Связь с '" + ComboBox1->Text + "' установлена.");
 
  Timer2->Enabled = false;
  ConnectActive = true;
  ComPortClose();
  CloseHandle(ComPort);       
  ComPort=0;                
  SpeedButton5->Down = false;
  Timer2->Enabled = false;
  Timer3->Enabled = true;
  }
}