//-----------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Close();
}
//----------------------------------

Przedstawiona powyżej procedura spowodowała zamknięcie okna dialogowego 'Form2'. Ponowne kliknięcie przycisku 'Pokaż' spowoduje wywołanie procedury 'Form2->Show();' i wyświetlenie okna 'Form2'.