Помощь в коде С++, mid player

[Dima-91]

Код компилируется, но не знаю как отладить, ошибки при работе получаются.

TForm1 *Form1;
int pw;
int rem = 60;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TSearchRec sr;
	if (FindFirst ("*.mid",faAnyFile,sr) == 0)
	{
		MediaPlayer1->FileName = sr.Name;
		MediaPlayer1->Open();
		MediaPlayer1->Play();
	}
	Randomize();
	pw = Random(899)+100;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::isRight(void)
{
	if (StrToInt(Edit1->Text) == pw)
	{
		Timer1->Enabled = false;
		Button1->Enabled = false;
		Edit1->Enabled = false;
		MediaPlayer1->Stop();
		ShowMessage ("Поздравляю! \nВы угадали число за " + IntToStr (60 - rem) + "сек");
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
if ((Edit1->Text.Length()< 3) && ((Key >='0') && (Key <='9')) || Key == VK_BACK)
{
	return;
}
	if (Key == VK_RETURN)
	{
	isRight();
	return;
	}
	Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
	if (Edit1->Text.Length() == 3)
	{
		Button1->Enabled = true;
	}
	else
	{
		Button1->Enabled = false;
	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
isRight();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
	rem--;
	Label4->Caption = IntToStr(rem);
	if (rem == 0)
	{
		Timer1->Enabled = false;
		Edit1->Enabled = false;
		MediaPlayer1->Stop();
		ShowMessage ("К сожалению, Вы не справились с "
			"поставленной задачей\n"
			"\"Секретное\" число -" + IntToStr(pw) );

	}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
	Timer1->Enabled = false;
	MediaPlayer1->Stop();
	MediaPlayer1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::MediaPlayer1Notify(TObject *Sender)
{
	if (Timer1->Enabled)
	{
		MediaPlayer1->Play();
	}
}
//---------------------------------------------------------------------------

Может кто-то подскажет, что не так...