Form1 에서 다음과 같이 Form2 생성합니다.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TForm2 * FFF = new TForm2(this);
    FFF->ShowModal();
    FFF->Free();
}

그런데 Form2의 OnShow이벤트에서 뭔가를 체크해서
체크가 성공하면 그냥 폼이 보여지기 전에 닫으려고

void __fastcall TForm2::FormShow(TObject *Sender)
{
    if ( true )
        ModalResult = mrCancel ;
        //Close();
}

위와 같이 넣어 봤는데도 사라지지 않더군요
물론 그냥 Close() 도 사라지지 않고

어떻게 해야 하는 겁니까? 기초가 없어서 죄송합니다.