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