一启动就退出解决思路

一启动就退出
运行完Application->Run();后直接到return 0了，不知道为什么一启动后就关闭了，怎么调试这个问题啊，也没有任何错误提示

       try

        {

                 Application->Initialize();

                  Application->Run();

        }

        catch (Exception &exception)

        {

                 Application->ShowException(&exception);

        }

        catch (...)

        {

                 try

                 {

                         throw Exception("");

                 }

                 catch (Exception &exception)

                 {

                         Application->ShowException(&exception);

                 }

        }

        return 0;

------解决方案--------------------
是form程序吗

        Application->Initialize();

        Application->CreateForm(__classid(TForm1), &Form1);//得有这句话啊

        Application->Run();