void __fastcall TConsoleRunner::TimerTimer(TObject * /*Sender*/)
{
  // sole presence of timer causes message to be dispatched,
  // hence breaks the loops
}

void __fastcall TConsoleRunner::TimerTimer(TObject *  )
{
   
   
}
