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