Гра "Перший мільйон"

PasswDlg->Edit1->Clear();

PasswDlg->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N6Click(TObject *Sender)

{

fmRating->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

Timer1->Tag++;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormActivate(TObject *Sender)

{

random_question ();

update ();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)

{

AnsiString sound="Stop.wav";

play (sound);

save_rating ();

fmStop->ShowModal();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N50x501Click(TObject *Sender)

{