anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  -////////////////////////////////////////////////////////////////////////////////
  -
  -////////////////////////////////////////////////////////////////////////////////
  +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;
   
   ////////////////////////////////////////////////////////////////////////////////
   
  
positive.code:    FreeAndNil(Self.received);
     Self.receivedLock.Release();
     FreeAndNil(Self.receivedLock);
   finally
     inherited;
   end;
  
negative.code: 
   Self.received := TObjectQueue<TPtReceived>.Create();
   Self.receivedLock := TCriticalSection.Create();
   Self.accessTokens := TDictionary<string, boolean>.Create();
  
   Self.httpServer := TIdHTTPServer.Create(nil);
   Self.httpServer.Bindings := bindings;
  