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); procedure WebModuleDestroy(Sender: TObject); private MVC: TMVCEngine; public { Public declarations } end; var WebModuleClass: TComponentClass = TWebModule1; implementation {$R *.dfm} uses MyControllerU; procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin Response.Content := 'Web Server Application'; end; procedure TWebModule1.WebModuleCreate(Sender: TObject); begin MVC := TMVCEngine.Create(Self); MVC.AddController(TMyController); MVC.Config['ISAPI_PATH'] := '/isapi32/myisapi.dll'; end; procedure TWebModule1.WebModuleDestroy(Sender: TObject); begin MVC.Free; end; end.