我有一个东西弄不明白，请大家帮助。

TCCFancyClock=class(TCCColorClock)
  private
    FClockStyle:TCCClockStyle;
    FBevelWidth:Integer;
    FBorderWidth:Integer;
    procedure DrawBorder;
    procedure SetBevelWidth(const Value:Integer);
    procedure SetBorderWidth(const Value:Integer);
  protected
    procedure WMTimer(var Msg:TMessage);override;
    procedure Paint;override;
  public
    constructor Create(AOwner:TComponent);override;
  published
    property BevelWidth:Integer read FBevelWidth write SetBevelWidth;
    property BorderWidth:Integer read FBorderWidth write SetBorderWidth;
    property ClockStyle read FClockStyle write FClockStyle;
    property Font;
  end;编译时
提示[Error] Clock.pas(57): Property 'ClockStyle' does not exist in base class
我想如果在基类中没有定义该属性，应该也允许在子类中添加该属性的吧。
请大家帮我。谢谢！