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

Przedstawiona powyżej procedura spowodowała wyświetlenie modalnego okna dialogowego 'Form2'. Okno modalne zablokowało dostęp do formularza 'Form1' do czasu aż okno 'From2' nie zostanie zamknięte.