mxOutlookBarPro中，button是通过for语句动态生成的，如何取得当前单击button的标题呢？

mxOutlookBarPro中，button是通过for语句动态生成的，如何取得当前单击button的标题呢？ VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061220140320248.html
mxOutlookBarPro中，button是通过for语句动态生成的，如何取得当前单击button的标题呢？

动态生成的button如何他们响应他们onclick事件？

var  
      i:   Integer;  
      pButton:   TmxButton;  
   
              pButton:=pHeader.AddButton;  
              pButton.Caption   :=   Menus[i].sName;  
              pButton.Tag:=i;  
              pButton.OnClick:=   OnButtonClick;  
   
   
   
  procedure   TFMenus.OnButtonClick(Sender:   TObject);  
  var  
      pButton:   TmxButton;  
      pHeader:   TmxHeader;  
      iMenuIndex:   Integer;  
  begin  
      pButton:=TmxButton(Sender);  
      ShowMessage(pButton.Caption);  
  end;