Как убедиться что экземпляр подгружаемой формы уже создан?

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    // Здесь необходимо убедиться в отсутствии создаваемого экземпляра формы и только в этом случае его создавать;
    Form2 = new TForm2(Application);
    Form2->Show();
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    // Здесь необходимо убедиться в существовании закрываемой формы;
    Form2->Close();
}

if(!Form2)
{
    // нет, экземпляр еще не создан, создаем
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
     if(!Form2) Form2 = new TForm2(Application);
     Form2->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
     if(!Form2) return;
     Form2->Close();
     Form2=NULL;
}
//---------------------------------------------------------------------------

#define nil NULL
     Form2 = nil;

FreeAndNil(&Form2);