anchor.diff:      property    MinHeight;
       property    MinWidth;
       property    ParentShowHint;
  +    property    ReadOnly;
       property    ShowHint;
       property    TabOrder;
       property    Text;
  
positive.code:     procedure   SetBoxLayout(const AValue: TBoxLayout);
      procedure   SetChecked(const AValue: boolean);
      procedure   SetFontDesc(const AValue: string);
      procedure   SetText(const AValue: string);
      procedure   DoOnChange;
    protected
  
negative.code:     property    Checked: boolean read FChecked write SetChecked default False;
      property    FontDesc: string read GetFontDesc write SetFontDesc;
      property    BoxLayout: TBoxLayout read GetBoxLayout write SetBoxLayout default tbLeftBox;
      property    ReadOnly: Boolean read FReadOnly write SetReadOnly default False;
      property    Text: string read FText write SetText;
      property    OnChange: TNotifyEvent read FOnChange write FOnChange;
    public
  