Ошибка при попытке показа формы авторизации перед главной формой

bool __fastcall TForm1::Execute()
{
 TForm1 *frm = new TForm1(0);
    int res = frm->ShowModal();
    delete frm;
    return res == mrOk;
}

    bool __fastcall TForm1::Execute()
{
    bool Result;
    TForm1 *LoginForm = new TForm1(0);
    try
    {
        Result = (LoginForm->ShowModal() == mrOk);
    }
    __finally
    {
        delete LoginForm;
    }
    return Result;
}

        Application->CreateForm(__classid(TDataModule3), &DataModule3);
        if(TForm1::Execute()) // <--- Какая форма создается?
        {
        Application->CreateForm(__classid(TForm1), &Form1); // А это что такое?
        Application->CreateForm(__classid(TForm2), &Form2);
        Application->Run();
        }
        else
        {
            Application->MessageBox(L"Неправильный пароль", L"Ошибка");
        }

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <tchar.h>
#include "Unit1.h."
//---------------------------------------------------------------------------
#include <Vcl.Styles.hpp>
#include <Vcl.Themes.hpp>
USEFORM("Unit3.cpp", DataModule3); /* TDataModule: File Type */
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
        Application->CreateForm(__classid(TDataModule3), &DataModule3);
        if(TForm1::Execute())
        {
        Application->Initialize();
        Application->CreateForm(__classid(TForm2), &Form2);//вот тут
        Application->Run();
        }
        else
        {
            Application->MessageBox(L"Неправильный пароль", L"Ошибка");
        }
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    catch (...)
    {
        try
        {
            throw Exception("");
        }
        catch (Exception &exception)
        {
            Application->ShowException(&exception);
        }
    }
    return 0;
}
//---------------------------------------------------------------------------

try
    {
        Application->Initialize();
        Application->CreateForm(__classid(TDataModule3), &DataModule3);
        if(TForm1::Execute())
        {
 
        Application->CreateForm(__classid(TForm2), &Form2);
        Application->Run();
        }
        else
        {
            Application->MessageBox(L"Неправильный пароль", L"Ошибка");
        }
    }

bool __fastcall TForm1::Execute()
{
    bool Result;
    TForm1 *LoginForm = new TForm1(0);
    try
    {
        Result = (LoginForm->ShowModal() == mrOk);
    }
    __finally
    {
        delete LoginForm; \\ Здесь ошибка
    }
    return Result;
}