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

}

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

void __fastcall TForm3::Button11Click(TObject *Sender)

{

Label1->Caption="";

c="Clear";

out (c);

dial ();

}

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

void __fastcall TForm3::FormActivate(TObject *Sender)

{

Label1->Caption="";

Edit1->Clear();

AnsiString sound="Zal.wav";

play (sound);

}

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

void __fastcall TForm3::FormShow(TObject *Sender)

{

c=" ";

out (c);

}

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

void __fastcall TForm3::Edit1Enter(TObject *Sender)

{

dial ();

}

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

Висновки