Использование компонента Timer

if( !Timer1->Enabled )
  {
  // Какие-то действия разрешенные, когда таймер выключен
  }

if(Timer -> Enabled == true)
 {
 // Что-то разрешаем/запрещаем 
 }

void __fastcall TMainForm::OnTimer(TObject *Sender)
 {
  // После срабатывания: то, что раньше разрешали/запрещали, выполняем "наоборот" 
 }

// Деактивимруем кнопку "Закрыть"
    HMENU MenuHandle = GetSystemMenu(Handle, false);
   if(MenuHandle)
    {
      EnableMenuItem(MenuHandle, SC_CLOSE, MF_GRAYED);
      NoticeForm1 -> ShowModal(); // Это предупреждение о невозможности отмены предустановок
    }

// *******  ПОВТОРНАЯ АКТИВАЦИИ КНОПКИ "ЗАКРЫТЬ"  ******
     HMENU MenuHandle_ = GetSystemMenu(Handle, false);
   if(MenuHandle_)
    {  
       EnableMenuItem(MenuHandle_, SC_CLOSE, MF_ENABLED);
       NoticeForm2 -> ShowModal(); // Уведомление, что можно менять предустановки 
    }

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  CanClose = !Timer1->Enabled;
}