anchor.diff:      property StartedAt: TDateTime read FStartedAt;
       property StoppedAt: TDateTime read FStoppedAt;
       property UpTime: TTimeSpan read GetUpTime;
  +
  +    property BeforeCommandGet: TBeforeCommandGetFunc read FBeforeCommandGet write FBeforeCommandGet;
     end;
   
   implementation
  
positive.code: ;
  
  type
    TMARShttpServerIndy = class(TIdCustomHTTPServer)
    private
      FEngine: TMARSEngine;
      FStartedAt: TDateTime;
      FStoppedAt: TDateTime;
      function GetUpTime: TTimeSpan;
    protected
      procedure SetCookies(const AResponseInfo: TIdHTTPResponseInfo; const AResponse: TIdHTTPAppResponse); virtual;
  
negative.code:   LResponse: TIdHTTPAppResponse;
  begin
    inherited;
  
    if Assigned(FBeforeCommandGet) then
      if not FBeforeCommandGet(AContext, ARequestInfo, AResponseInfo) then
        Exit;
  
    LRequest := TIdHTTPAppRequest.Create(AContext, ARequestInfo, AResponseInfo);
    try
  