TBitmap als property von TWinControl-Ableitung

[SirThornberry]

Hallöchen,

ich bin grad dabei eine neue Componente zu erstellen die von TWinControl abgeleitet ist.

Delphi-Quellcode:

  TGraphicButtonx = class(TWinControl)
  private
    ShowPic: TImage;
    bildup: TBitmap;
    bilddown: TBitmap;
    procedure setbildup(bild: TBitmap);
    function getbildup: TBitmap;
    procedure setbilddown(bild: TBitmap);
  public
    constructor create(AOwner: TComponent); override;
    destructor destroy; override;
    property pictureup: TBitmap read getbildup write setbildup;
    property picturedown: TBitmap read bilddown write setbilddown;
  end;

wie erreiche ich wenn

Delphi-Quellcode:

var tmp001: TGraphicButtonx;
begin
 tmp001 := TGraphicButtonx.Create(Self);
 tmp001.pictureup.Assign(image1.picture.bitmap);

aufgerufen wird die metheode setbildup aufgerufen wird??
setbildup wird nur aufgerufen wenn

tmp001.pictureup := image1.picture.bitmap;

ausgeführt wird, in keine anderen fall...