anchor.diff:        {$Note OLE DND: We are only handling strings at the moment, this needs to be extended to other types too }
         itm := FMimeData[i];
         {$IFDEF DND_DEBUG}
  -      writeln('  Processing mime-type: ', itm.Format);
  +      SendDebug('  Processing mime-type: ', itm.Format);
         {$ENDIF}
   
         { description of data we are sending }
  
positive.code: destructor TfpgGDIDrag.Destroy;
  begin
    {$IFDEF DND_DEBUG}
    writeln('TfpgGDIDrag.Destroy ');
    {$ENDIF}
    inherited Destroy;
  end;
  
negative.code:   if FDragging then
    begin
      {$IFDEF DND_DEBUG}
      SendDebug('TfpgGDIDrag.Execute (already dragging)');
      {$ENDIF}
      Result := daIgnore;
    end
    else
    begin
      {$IFDEF DND_DEBUG}
      SendDebug('TfpgGDIDrag.Execute (new drag)');
      {$ENDIF}
      FDragging := True;
      wapplication.Drag := self;
  