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