How to disable Drag/drop TRichEdit or TRzRichEdit

How to block the drag and drop in TRichEdit? delphi code I work with Rich edit and having difficulties on blocking the drag and drop feature specially dragging text from out开发者_JAVA技巧side the form let say comming from IE to my RichEdit.

---

See RevokeDragDrop on MSDN;

uses
  activex;

RevokeDragDrop(RichEdit1.Handle);

---

try changing on key down/ up event setting it to readonly. onkey down, set it up to richedit1.readonly := false; and then on keyup richedit1.readonly := true; it works.. it evern disbled the paste features