unit fServerDataModule;

interface

uses
  SysUtils, Classes, uROClient, uROServer, uROIndyTCPServer,
  uROPoweredByRemObjectsButton, uROClientIntf, uROClasses,
  uROBinMessage, uROIndyHTTPServer, uROZeroConf, uROSessions;

type
  TServerDataModule = class(TDataModule)
    ROMessage: TROBinMessage;
    ROServer: TROIndyHTTPServer;
    SessionManager: TROInMemorySessionManager;
    ZeroConfRegistration: TROZeroConfRegistration;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ServerDataModule: TServerDataModule;

implementation

{$R *.dfm}

procedure TServerDataModule.DataModuleCreate(Sender: TObject);
begin
  ROServer.Active := TRUE;
end;

end.