unit WebModuleU; 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 { Private declarations } public { Public declarations } end; var WebModuleClass: TComponentClass = TWebModule1; implementation {%CLASSGROUP 'Vcl.Controls.TControl'} uses WebSiteControllerU; {$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 TMVCEngine.Create(Self).AddController(TWebSiteController); end; end.