很简单的组件问题，各位高手帮帮忙！谢谢先！

unit CustomControl1;interfaceuses
  Windows, Messages, SysUtils, Classes, Controls;type
  TCustomControl1 = class(TCustomControl)
  private
    FIntegertest: Integer;
   { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
     property Integertest read FIntegertest write FIntegertest;
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TCustomControl1]);
end;
原码如上，都是自动生成的，我想增加一个Integertest属性，可就是编译不过，提示：
[Error] CustomControlLin.pas(19): Property 'Integertest' does not exist in base class
请问到底是怎么回事啊！？问题解决马上结贴，在线等待各位高手！