anchor.diff:     private
       // seznam endpointu PTserveru, PTserver instanciuje vsechny endpointy v konstruktoru
       endpoints: TObjectList<TPTEndpoint>;
  +    accessTokens: TDictionary<string, boolean>;
   
       httpServer: TIdHTTPServer;
   
  
positive.code:      procedure Start();
       procedure Stop();
  
        property openned:boolean read IsOpenned;
        property port:Word read GetPort write SetPort;
        property compact:boolean read Fcompact write Fcompact;
  
negative.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  procedure TPtServer.AccessTokenAdd(token:string);
  begin
   Self.accessTokens.Add(token, true);
  end;
  
  procedure TPtServer.AccessTokenRemove(token:string);
  begin
   Self.accessTokens.Remove(token);
  end;
  
  function TPtServer.IsAccessToken(token:string):boolean;
  begin
   Result := Self.accessTokens.ContainsKey(token);
  end;
  
  ////////////////////////////////////////////////////////////////////////////////
  
  