anchor.diff:      procedure DoUnregister(ATarget: TWinControl);
       procedure Notification(AComponent: TComponent; Operation: TOperation); override;
       function GetTarget: TWinControl;
  +    function GetWinTarget: HWND;
       procedure SetTarget(const Value: TWinControl);
  +    procedure SetWinTarget(const Value: HWND);
       procedure DoAutoScroll(Sender: TObject);
       function SampleMouse(MousePos: TPoint; First: boolean = False): boolean;
       procedure SetShowImage(Show: boolean);
  
positive.code:         // Note: According to .\Samples\winui\Shell\DragImg\DragImg.doc from the
          // Platform SDK, the return value of IDropTargetHelper.DragEnter should
          // be ignored, but my tests show that it shouldn't.
          if (Failed(DropTargetHelper.DragEnter(FTarget.Handle, DataObj, pt, dwEffect))) then
            FDropTargetHelper := nil;
        end;
  
  
negative.code:           // Currently we will just replace any 'embedded' cursor with our
            // blank (transparent) image otherwise we sometimes get 2 cursors ...
            ImageList_SetDragCursorImage(FImages.Handle, 0, FImageHotSpot.x, FImageHotSpot.y);
            if FTarget = nil then begin
              with ClientPtToWindowPt(FWinTarget, ClientPt) do
                ImageList_DragEnter(FWinTarget, x, y);
            end else
              with ClientPtToWindowPt(FTarget.Handle, ClientPt) do
                ImageList_DragEnter(FTarget.handle, x, y);
          end;
        end;
      end else
  