Procedure TWPToolbar.Change(Sender:TObject)Unit: WPTbarClass: WPTbar.TWPToolbarParameters Sender:TObject