Procedure TWPShadedForm.WMMove(Msg:TMessage)Unit: WPUtilClass: WPUtil.TWPShadedFormParameters Msg:TMessage