anchor.diff:  begin
     Result := False;
   
  +  PatchCORS(ARequest, AResponse);
  +
     LURL := TMARSURL.Create(ARequest);
     try
  -
       if Assigned(FOnBeforeHandleRequest) then
         if not FOnBeforeHandleRequest(Self, LURL, ARequest, AResponse, Result) then
           Exit;
  
positive.code:   end;
  end;
  
  function TMARSEngine.GetBasePath: string;
  begin
    Result := Parameters['BasePath'].AsString;
  
negative.code:     procedure SetPort(const Value: Integer);
      procedure SetThreadPoolSize(const Value: Integer);
    protected
      procedure PatchCORS(const ARequest: TWebRequest; const AResponse: TWebResponse);
    public
      constructor Create(const AName: string = DEFAULT_ENGINE_NAME); virtual;
      destructor Destroy; override;
  