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