Procedure TWPCaret.SetDisabled(X:Boolean)Unit: WPCTRMemoClass: WPCTRMemo.TWPCaretParameters X:Boolean