Зацикливается в начале воспроизведения PlaySound()

#include <vcl.h>
#pragma hdrstop
#include <Time.h>
#include <mmsystem.h>
#include "cpp_clocks.h"
#include "cpp_clocks_form2.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
AnsiString StrLine="";
time_t t; tm* MyTime; //Таймер
struct timedata{
  int H,M,F;
  time(){H=0;M=0;F=0;}};
timedata ATime; //установка будильника
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner): TForm(Owner)
{}
//----------------------Часы & Проверка будильника---------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender){
StaticText1->Caption=Now().TimeString();
time(&t); MyTime=localtime(&t);
if(ATime.F == 1)
   if((MyTime->tm_hour == ATime.H) && (MyTime->tm_min == ATime.M)){
      PlaySound("melody.wav", 0, SND_ASYNC);
      //здесь был код записи строки в StrLine; 
      }
}
//-- был код для показа формы 2  Form2->ShowModal();

#include <vcl.h>
#pragma hdrstop
#include <Time.h>
#include "cpp_clocks.h"
#include "cpp_clocks_form2.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
 
struct timedata{
  int H,M,F;
  time(){H=0;M=0;F=0;}};
extern timedata ATime;
extern AnsiString StrLine;
//----------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner){}
void __fastcall TForm2::SetClick(TObject *Sender)
{
//-------------------Установка будильника-----------------------
if(ATime.F==0){
   ATime.H = StrToInt(Enter_H->Text);
   ATime.M = StrToInt(Enter_M->Text);
   ATime.F = 1;
 
   //---здесь был код записи строки в StrLine; 
   Form1->VisStat->Caption=StrLine; //VisStat - StaticText
   StatusAlarm->Caption = "Активен";//StatusAlarm - StaticText
   Set->Caption="Сбросить";} //поменял капчу кнопки 
//----------------------Сброс будильника------------------------
else{
   ATime.F=0;
   Form1->VisStat->Caption=""; StrLine="";
   StatusAlarm->Caption = "Неактивен";
   Set->Caption="Установить";}
}