anchor.diff:    STR_VAL = String('<TestEnterMethod1>');
     INT_VAL = Integer(777);
   begin
  +  SUT.AllowedItems := SUT.AllowedItems + [liMethod];
  +
     { Case #1 }
   
     SUT.EnterMethod(TypeInfo(TMethodHolderRec), @TMethodHolderRec.ProcMethod, [STR_VAL, INT_VAL, Self]);
  
positive.code:   CheckEquals(2, FOutput.SectionLevel, 'SectionLevel = 2');
    CheckTrue(FOutput.LastWrittenLine.Contains(GetTypeName(TypeInfo(TMethodHolderRec))),
      'CheckTrue::LastWrittenLine.Contains(GetTypeName)<Case #2>');
    CheckTrue(FOutput.LastWrittenLine.Contains('ProcMethod'),
      'CheckTrue::LastWrittenLine.Contains(<MethodName>)<Case #2>');
    CheckTrue(FOutput.LastWrittenLine.Contains(STR_VAL), 'CheckTrue::LastWrittenLine.Contains(STR_VAL)<Case #2>');
    CheckTrue(FOutput.LastWrittenLine.Contains(INT_VAL.ToString), 'CheckTrue::LastWrittenLine.Contains(INT_VAL)<Case #2>');
  
negative.code:   STR_VAL = String('<TestEnterMethod>');
    INT_VAL = Integer(777);
  begin
    SUT.AllowedItems := SUT.AllowedItems + [liMethod];
  
    { Case #1 }
  
    SUT.EnterMethod(TMethodHolderObj, @TMethodHolderObj.ProcMethod, [STR_VAL, INT_VAL, Self]);
  