function TMyDropClass.DragEnter( const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint;
                                 var dwEffect: Longint): HResult; stdcall;
var
  ienum: IEnumFORMATETC;
  el: FORMATETC;
  qty: integer;
begin
  dwEffect := DROPEFFECT_NONE;
  Result := dataObj.EnumFormatEtc( DATADIR_GET, ienum );
  if Result <> S_OK then exit;
  ... // Тут раньше была обработка ienum, но ошибка идет и без нее
  dwEffect := DROPEFFECT_COPY;
//  ienum._Release; !!!!!! ГЛЮК!!! Если убрать комментарий, то DragOver не происходит ВООБЩЕ!!! Хотя иначе будет mem leak 
  Result := S_OK;
end;