anchor.diff:      function GetExpectationMet : boolean;
       function Match(const Args : TArray<TValue>) : boolean;
       procedure RecordHit;
  +    procedure CheckExpectationMet;
       function Report : string;
       function ArgsToString : string;
       procedure CopyArgs(const Args: TArray<TValue>);
  
positive.code: 
      constructor CreateAfterWhen(const AMethodName : string; const AAfterMethodName : string;const Args : TArray<TValue>);
      constructor CreateAfter(const AMethodName : string; const AAfterMethodName : string);
    end;
  
  
  
negative.code: procedure TExpectation.RecordHit;
  begin
    Inc(FHitCount);
    CheckExpectationMet;
  end;
  
  procedure TExpectation.CheckExpectationMet;
  begin
    case FExpectationType of
      Once,
      OnceWhen: FExpectationMet := FHitCount = 1;
      Never,
      NeverWhen: FExpectationMet := FHitCount = 0;
      AtLeastOnce,
      AtLeastOnceWhen: FExpectationMet := FHitCount >= 1;
      AtLeast,
  