anchor.diff:      FMultiTarget: boolean;
       FOptimizedMove: boolean;
       FTarget: TWinControl;
  +    FWinTarget: HWND;
   
       FImages: TImageList;
       FDragImageHandle: HImageList;
  
positive.code:   end;
  
    try
      ClientPt := FTarget.ScreenToClient(pt);
  
      ShiftState := KeysToShiftStatePlus(grfKeyState);
  
  
negative.code:     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);
  