自定义的Ole对象实例插入RichEdit后，无法拖动、粘贴、复制，是怎么回事？

自定义的Ole对象实例插入RichEdit后，无法拖动、粘贴、复制，是怎么回事？我的Ole对象实现了以下接口：
TMyOleObject = class(TInterfacedObject, IOleObject, IViewObject2, IViewObject, IDataObject)
...
end;插入RichEdit的代码是：
function InsertMyObject(hRichEdit: THandle): Boolean;
var
  ReOle: IRichEditOle;
  MyOle: TMyOleObject;
  OleSite: IOleClientSite;
  OleObject: IOleObject;
  ReObj: TReObject;
begin
  ReOle := GetRichEditOle(hRichEdit);
  Assert(ReOle <> nil, 'RichEditOle is null!');
  MyOle := TMyOleObject.Create();
  try
    ReOle.GetClientSite(OleSite);    MyOle.GetOleObject(OleSite, OleObject);
    OleCheck(OleSetContainedObject(OleObject, True));    FillChar(ReObj, Sizeof(ReObj), 0);
    ReObj.cbStruct := Sizeof(ReObj);
    OleCheck(OleObject.GetUserClassID(ReObj.clsid));
    ReObj.cp := REO_CP_SELECTION;
    ReObj.dvaspect := DVASPECT_CONTENT;
    ReObj.poleobj := OleObject;
    ReObj.polesite := OleSite;
    ReObj.dwFlags := REO_READWRITEMASK and not(REO_RESIZABLE);    ReOle.InsertObject(ReObj);
    Result := True;
  finally
    //,,,
  end;
end;