Создание MainForm после успешной авторизации

void __fastcall TAuthForm::Button1Click(TObject *Sender)
{
if (correctinfo) {
MainForm= new TMainForm(this);
MainForm->Show();
                    }
}

__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
MainForm->ADOQuery1->FieldByName("id")->Visible=false;
 
for(int i=1890; i<2011; i++){
MainForm->ComboBox1->Items->Add(i);
}
for(int j=1890; j<2011; j++){
MainForm->ComboBox2->Items->Add(j);
}
}

MainForm->ComboBox1->Items->Add(i);

class TMainForm : public TForm
{
__published:    // IDE-managed Components
        .....
    TADOQuery *ADOQuery1;
    TComboBox *ComboBox1;
    TComboBox *ComboBox2;
        .....
};

Application->ShowMainForm=false;

Application->ShowMainForm=true;

Application->ShowMainForm=true;

//-----------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Application->ShowMainForm=false;
Visible=false;
}
//---------------------------------------------------------------------------

Form->Visible=true;

__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
Application->ShowMainForm=false;
}

__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
Application->ShowMainForm=false;
Application->CreateForm(__classid(TAuthForm), &AuthForm);
AuthForm->Show();
}

void __fastcall TMainForm::FormShow(TObject *Sender)
{
     wearehere = false;
 
     if (wearehere) {
           Application->MessageBox(L"Ура, мы в системе",L"В системе",MB_OK);
     }
     else {
        Application->MessageBox(L"Зайдите позже!",L"Не в системе",MB_OK);
        Application->Terminate(); //!!! здесь закрываем прогу, 
        //но форма MainForm все равно показывается на долю секунды, а не должна.
 
        //Close();
     }
}