anchor.diff:    /// Do not forget to add DSharp.Bindings.VCLControls to the interface uses clause of the View unit as the last item
     /// </remarks>
     TDataBindManager = class abstract
  +  strict private
  +    class var FBinder: TBindingGroup;
     private
  +    class constructor Create;
  +    class destructor Destroy;
  +
       class function GetBinderAttribute(AMember: TRttiMember): BindAttribute;
       class procedure AddSourceNotification(const APropName: string; ABinding: TBinding; ASource: TObject);
     protected
       class procedure SourceObjUpdated(ASender: TObject;
           APropertyName: string; AUpdateTrigger: TUpdateTrigger = utPropertyChanged);
     public
  -    class procedure BindView(ABindableView, ASource: TObject; ABinder: TBindingGroup);
  +    class procedure BindView(ABindableView, ASource: TObject; ABinder: TBindingGroup = nil);
     end;
   
   
  
positive.code:     begin
        LVal := rField.GetValue(ABindableView);
        Assert(LVal.IsObject, 'Bindable property must be TObject');
        LBinding := ABinder.AddBinding(ASource, LAttr.GetSourcePropertyNameDef(rField.Name), LVal.AsObject,
          LAttr.GetTargetPropertyNameDef('Text'), LAttr.BindingMode, LAttr.Converter);
        //if source object's property is not managed, then assign event on which it will be freed
        AddSourceNotification(LAttr.GetSourcePropertyNameDef(rField.Name), LBinding, ASource);
  
negative.code:   LAttr: BindAttribute;
    LVal: TValue;
    LBinding: TBinding;
    LBinder: TBindingGroup;
  begin
    Assert(Assigned(ABindableView), 'ABindableView must be assigned');
    Assert(Assigned(ASource), 'ASource must be assigned');
    //Assert(Assigned(ABinder), 'ABinder must be assigned');
    LBinder := ABinder;
    if not Assigned(LBinder) then
      LBinder := FBinder;
  
    rTypeView := TRttiContext.Create.GetType(ABindableView.ClassInfo);
  
  