Procedure TWPCustomRtfEdit.DragDrop(Source:TObject; X:Integer; Y:Integer)Unit: WPCTRMemoClass: WPCTRMemo.TWPCustomRtfEditParameters Source:TObject X:Integer Y:Integer