anchor.diff:    inherited Create(nil);
     OnParseAuthentication := ParseAuthenticationHandler;
     FEngine := AEngine;
  +  FBeforeCommandGet := nil;
   end;
   
   procedure TMARShttpServerIndy.DoCommandGet(AContext: TIdContext;
  
positive.code:     property StartedAt: TDateTime read FStartedAt;
      property StoppedAt: TDateTime read FStoppedAt;
      property UpTime: TTimeSpan read GetUpTime;
    end;
  
  implementation
  
negative.code: ;
  
  type
    TBeforeCommandGetFunc = reference to function (AContext: TIdContext;
      ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo): Boolean;
  
    TMARShttpServerIndy = class(TIdCustomHTTPServer)
    private
      FEngine: TMARSEngine;
      FStartedAt: TDateTime;
      FStoppedAt: TDateTime;
      FBeforeCommandGet: TBeforeCommandGetFunc;
      function GetUpTime: TTimeSpan;
    protected
      procedure SetCookies(const AResponseInfo: TIdHTTPResponseInfo; const AResponse: TIdHTTPAppResponse); virtual;
  