anchor.diff:      FValue: TDValueItem;
       FObjectType: TDValueObjectType;
       FParent: TDValue;
  +    FLastMsg:String;
   
       {$IFDEF HAVE_GENERICS}
       FChildren: TList<TDValue>;
  
positive.code:   lvDebug:String;
  begin
    try
      lvDebug := 'ClearChildren';
      ClearChildren;
      lvDebug := 'Value.Clear';
  
negative.code:   begin
      for i := 0 to FChildren.Count - 1 do
      begin
        try
          FLastMsg := Format('[%d/%d]:%s', [i, FChildren.Count, TObject(FChildren[i]).ClassName]);
        except
          FLastMsg := Format('[%d/%d]', [i, FChildren.Count]);
        end;
        TDValueItem(FChildren[i]).Free;
      end;
      FChildren.Clear;
  