program $PRJNAME; {#ROGEN:$SVCLIBNAME.rodl} // RemObjects: Careful, do not remove! uses uROComInit, uROComboService, Forms, fServerDataModule in 'fServerDataModule.pas' {ServerDataModule: TDataModule}, fServerForm in 'fServerForm.pas' {ServerForm}; {$R *.res} {$R RODLFile.res} begin if ROStartService('$PRJNAME', '$PRJNAME') then begin ROService.CreateForm(TServerDataModule, ServerDataModule); ROService.Run; Exit; end; Application.Initialize; Application.CreateForm(TServerDataModule, ServerDataModule); Application.CreateForm(TServerForm, ServerForm); Application.Run; end.