unit fServerDataModule;

interface

uses
  SysUtils, Classes, uROClient, uROServer, uROIndyTCPServer,
  uROPoweredByRemObjectsButton, uROClientIntf, uROClasses,
  $MESSAGEUNIT, $SERVERUNIT;

type
  TServerDataModule = class(TDataModule)
    ROMessage: TRO$MSGCLSNAME;
    ROServer: TRO$SRVCLSNAME;
    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.