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

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