anchor.diff:    wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
     wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
     wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
  +  wc.AddProperty('ReadOnly', TPropertyBoolean, '');
     wc.AddProperty('ShowHint', TPropertyBoolean, '');
     wc.AddProperty('ShowThousand', TPropertyBoolean, 'Show thousand separator');
   //  wc.AddProperty('CustomThousandSeparator', TPropertyString, 'Thousand separator character');
  
positive.code:   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
    wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
    wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
    wc.AddProperty('ShowHint', TPropertyBoolean, '');
    wc.AddProperty('Value', TPropertyFloat, 'Initial value');
    wc.AddProperty('ShowThousand', TPropertyBoolean, 'Show thousand separator');
  
negative.code:   wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order');
    wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text');
    wc.AddProperty('ParentShowHint', TPropertyBoolean, '');
    wc.AddProperty('ReadOnly', TPropertyBoolean, '');
    wc.AddProperty('ShowHint', TPropertyBoolean, '');
    wc.AddProperty('Value', TPropertyFloat, 'Initial value');
    wc.AddProperty('ShowThousand', TPropertyBoolean, 'Show thousand separator');
  