anchor.diff:    except
       on e:Exception do
       begin
  -      raise Exception.CreateFmt('%s:%s:%s', [e.ClassName, lvDebug, e.Message]);
  +      raise Exception.CreateFmt('%s(%s):%s:%s', [e.ClassName, FLastMsg, lvDebug, e.Message]);
       end;
     end;
   end;
  
positive.code:   lvDebug:String;
  begin
    try
      lvDebug := 'ClearChildren';
      ClearChildren;
      lvDebug := 'Value.Clear';
  
negative.code:     FValue: TDValueItem;
      FObjectType: TDValueObjectType;
      FParent: TDValue;
      FLastMsg:String;
  
      {$IFDEF HAVE_GENERICS}
      FChildren: TList<TDValue>;
  