Остановка работы программы по Таймеру

button1Click(...)      <----запуск программы
{
Timer1Timer(Sender);
}
 
Timer1Timer(....Sender)
{
Timer1 -> Enabled = false;
 while(i<1000)
 {
    func();
 Timer1 ->Enabled = true;
 i++;
 }
}
 
button2click(...)         <----остановка программы
{
Timer1 -> Enabled = false;
}

#define TIMEOUT 5
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  CloseTimer->Enabled = true;
  CloseTimer->Tag = 0;
}
//---------------------------------------------------------------------------
void TForm1::CloseApplication()
{
  CloseTimer->Enabled = false;
  ShowMessage("Exiting after " + IntToStr(TIMEOUT) + " seconds.");
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CloseTimerTimer(TObject *Sender)
{
  CloseTimer->Tag += 1;
  if (CloseTimer->Tag >= TIMEOUT)
  {
    CloseApplication();
  }
}
//---------------------------------------------------------------------------

button1Click(...)      <----запуск программы
{
Timer1 ->Enabled = true;
i=0;
}
 
Timer1Timer(....Sender)
{
func(); // здесь я так понял та самая  "программа"
i++;
if(i>1000)Timer1 -> Enabled = false;//здесь как я понял автоостановка после 1000 операций
}
 
button2click(...)         <----остановка программы
{
Timer1 -> Enabled = false;
}