{*******************************************************}
{                                                       }
{       ManagerService                                  }
{                                                       }
{       Copyright (C) 2022 kku                          }
{                                                       }
{*******************************************************}

unit ManagerService;

interface

uses
  Tocsg.Obj, System.SysUtils, System.Classes;

type
  TManagerService = class(TTgObject)
  public
    IsConnStatus: Boolean;
    DestServerUrl: String;
    Constructor Create;
    Destructor Destroy; override;
  end;

var
  gMgSvc: TManagerService = nil;

implementation

{ TManagerService }

Constructor TManagerService.Create;
begin
  Inherited Create;
  IsConnStatus := false;
  DestServerUrl := '';
  ASSERT(gMgSvc = nil);
  gMgSvc := Self;
end;

Destructor TManagerService.Destroy;
begin
  gMgSvc := nil;
  Inherited;
end;

end.