unit WebModuleUnit1; interface uses System.SysUtils, System.Classes, Web.HTTPApp, mvcframework; type TWebModule1 = class(TWebModule) procedure WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); procedure WebModuleCreate(Sender: TObject); private FEngine: TMVCEngine; public { Public declarations } end; var WebModuleClass: TComponentClass = TWebModule1; implementation { %CLASSGROUP 'Vcl.Controls.TControl' } uses Controllers.Articles, MVCFramework.Middleware.CORS; {$R *.dfm} procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin Response.Content := '' + 'Web Server Application' + 'Web Server Application' + ''; end; procedure TWebModule1.WebModuleCreate(Sender: TObject); begin FEngine := TMVCEngine.Create(self); FEngine.AddController(TArticlesController); FEngine.AddMiddleware(TCORSMiddleware.Create); end; end.