unit MainModule; interface uses uniGUIMainModule, SysUtils, Classes; type TUniMainModule = class(TUniGUIMainModule) private { Private declarations } public { Public declarations } end; function UniMainModule: TUniMainModule; implementation {$R *.dfm} uses UniGUIVars, ServerModule, uniGUIApplication; function UniMainModule: TUniMainModule; begin Result := TUniMainModule(UniApplication.UniMainModule) end; initialization RegisterMainModuleClass(TUniMainModule); end.