program DynWhere_Server;

{#ROGEN:DynWhere_Library.RODL} // RemObjects SDK: Careful, do not remove!

uses
  uROComInit,
  uROComboService,
  Forms,
  DynWhere_ServerMain in 'DynWhere_ServerMain.pas' {ServerForm},
  DynWhere_ServerData in 'DynWhere_ServerData.pas' {ServerDataModule: TDataModule},
  DynWhere_Library_Intf in 'DynWhere_Library_Intf.pas',
  DynWhere_Library_Invk in 'DynWhere_Library_Invk.pas',
  DynWhere_Service_Impl in 'DynWhere_Service_Impl.pas' {DynWhere_Service: TDataAbstractService};

{$R *.res}
{$R RODLFile.res}

begin
  if ROStartService('DynWhere', 'DynWhere') then begin
    ROService.CreateForm(TServerDataModule, ServerDataModule);
    ROService.Run;
    Exit;
  end;

  Application.Initialize;
  Application.Title := 'Dynamic Where - Server';
  Application.CreateForm(TServerDataModule, ServerDataModule);
  Application.CreateForm(TServerForm, ServerForm);
  Application.Run;
end.