procedure wird nicht aufgerufen

[JnZn558]

Delphi-Quellcode:

TAb = class(TPersistent)
  private
    m_owndraw: Boolean;

  public
    constructor Create;

  published
    property DrawOwn: Boolean read m_owndraw write m_owndraw;

  end;

  TTest = class(TPageControl)
  private
    m_tab: Boolean;

    procedure SetTab( ab: Boolean );

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

  published
    property DrawOwn: Boolean read m_tab write SetTab;

  end;

bei obige beispiel wird die procedure SetTab korrekt aufgerufen

Delphi-Quellcode:

TAb = class(TPersistent)
  private
    m_owndraw: Boolean;

  public
    constructor Create;

  published
    property DrawOwn: Boolean read m_owndraw write m_owndraw;

  end;

  TTest = class(TPageControl)
  private
    m_tab: TAb;

    procedure SetTab( ab: TAb );

  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

  published
    property DrawOwn: TAb read m_tab write SetTab;

  end;

hier wird die procedure SetTab gar nicht aufgerufen, warum tut es nicht??? was mache ich falsch