//工程E_Action界面库主程序
uses tslvcl;     //引入界面库
app := InitializeApplication(); //获得界面管理器
app.CreateForm(class(E_Actionmain),fm);   //构造主窗口
fm.show();                     //显示主窗口
app.run();                    //开始消息循环