Procedure TWPValueEdit.SetUnit(x:TWPEditUnit)Unit: WPUtilClass: WPUtil.TWPValueEditParameters x:TWPEditUnit