Оповещение в определенное время

if ((hour%2==0) && (minute==40) && (second==0))
{
Beep(500,100);
}

DWORD CALLBACK ThreadF(void*Sender) /// Поток-функция
{   Beep(500,100);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject*Sender)
{   if ((hour%2==0) && (minute==40) && (second==0))
    {
        DWORD ThreadID=NULL; //Идентификатор потока
        HANDLE hThread=::CreateThread(0,0,ThreadF,0,0,&ThreadID); /// ThreadF(void*Sender)-сама функция
        CloseHandle(hThread); //Больше не нужен
    }
}

 Form9->Show();
 forms *Thr=new forms(false);

  while (Form9->Visible==true){
Beep(500,500);
}

Form9->Visible=false;
Form9->Close();

if ((hour%2==0) && (minute==40) && (second==0))
{
Form9->Show();
 forms *Thr=new forms(false);
 
}

TDateTime CurrTime = Now();
unsigned short hour, minute, second, ms;
CurrTime.DecodeTime(&hour, &minute, &second, &ms);
if ((hour%2==0) && (minute==40) && (second==0))
{
DWORD ThreadID=NULL; //Идентификатор потока
HANDLE hThread=::CreateThread(0,0,ThreadF,0,0,&ThreadID); /// ThreadF(void*Sender)-сама функция
CloseHandle(hThread); //Больше не нужен
}

while (Form9->Visible==true){
Beep(500,500);
}

forms *Thr=new forms(false);

void __fastcall forms::Execute()
{
  while (Form9->Visible==true){
Beep(500,500);
}
}

void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form2->Visible=false;
Form2->Close();
}

void __fastcall Form2::Execute()
{
  while (Form2->Visible==true){
Beep(500,500);
}
}

Form2 *Thr=new Form2(false);

forms *Thr=new forms(false);