Procedure TWPValueEdit.UnitClick(Sender:TObject)Unit: WPUtilClass: WPUtil.TWPValueEditParameters Sender:TObject