Wie speche ich OnResize bzw. OnClick einer dynamisch erstellten Form an ?

[Bummi]

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    btErzeugeForm: TButton;
    procedure btErzeugeFormClick(Sender: TObject);
    procedure SetzeColor(Sender:TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;


// snipp...


procedure TForm2.SetzeColor(Sender:TObject);
begin
//.....
end;

procedure TForm2.btErzeugeFormClick(Sender: TObject);
begin
//....SNIPP
 Button.OnClick:=SetzeColor;
//.....SNIPP
end;

end.