__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  /*B* b = new B;
  IB* ib = (IB*)b;
  b->met1();*/
  t->Enabled = true;

}
//---------------------------------------------------------------------------
не сработает в следующий раз пока не завершится а()
void __fastcall TForm1::tTimer(TObject *Sender)
{
a();
}
//---------------------------------------------------------------------------
 void a()
 {
        int c = 1;
  for (int i = 0; i < 2000; i++)
  for (int j = 0; j < 1000000; j++)
    c++;
 }