anchor.diff:    LStopWatchEx: TStopWatch;
   begin
     LStopWatchEx := TStopwatch.StartNew;
  +  FRequest := ARequest;
  +  FResponse := AResponse;
     if not DoBeforeRequestStart() then
     try
       LURL := TMARSURL.Create(ARequest);
  
positive.code:   DoAfterRequestEnd(LStopWatchEx);
  end;
  
  procedure TMARSEngine.RemoveSubscriber(const ASubscriber: IMARSHandleListener);
  begin
    FSubscribers.Remove(ASubscriber);
  end;
  
  function TMARSEngine.SetBasePath(const ABasePath: string): TMARSEngine;
  
negative.code:   Result := Self;
  end;
  
  function TMARSEngine.GetRequest: TMARSRequest;
  begin
    Result := FRequest;
  end;
  
  function TMARSEngine.GetResponse: TMARSResponse;
  begin
    Result := FResponse;
  end;
  
  class function TMARSEngine.GetServerDirectory: string;
  begin
    if FServerDirectory = '' then
  