anchor.diff:  //    (FDropSource as IUnknown)._Release;
   //    (FDataObject as IUnknown)._Release;
     end;
  -  {$ENDIF}
  +  {$ENDIF HAS_DND}
   end;
   
   { TGDIDragManager }
  
positive.code:   {$IFDEF DEBUG}
    ,fpg_dbugintf
    {$ENDIF DEBUG}
    {$IFNDEF wince}
    ,fpg_OLEDragDrop
    {$ENDIF}
    ;
  
negative.code: begin
    inherited Create(AOwner);
    FWinHandle := 0;
    {$IFDEF HAS_DND}
    FDropManager := nil;
    {$ENDIF}
    FDropPos.x := 0;
  