Procedure TWPCustomRtfEdit.DoStartDrag(DragObject:TDragObject)Unit: WPCTRMemoClass: WPCTRMemo.TWPCustomRtfEditParameters DragObject:TDragObject