Листинг 2 2

Листинг 2.2.

Процедура обработки события Onclick на кнопке Завершить
void __fastcall TForml::Button2Click(TObject*Sender) { Forml->Close(); }