anchor.diff:    if FDragging then
     begin
       {$IFDEF DND_DEBUG}
  -    writeln('TfpgGDIDrag.Execute (already dragging)');
  +    SendDebug('TfpgGDIDrag.Execute (already dragging)');
       {$ENDIF}
       Result := daIgnore;
     end
     else
     begin
       {$IFDEF DND_DEBUG}
  -    writeln('TfpgGDIDrag.Execute (new drag)');
  +    SendDebug('TfpgGDIDrag.Execute (new drag)');
       {$ENDIF}
       FDragging := True;
       wapplication.Drag := self;
  
positive.code:       {$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);
        {$ENDIF}
  
        { description of data we are sending }
  
negative.code: destructor TfpgGDIDrag.Destroy;
  begin
    {$IFDEF DND_DEBUG}
    SendDebug('TfpgGDIDrag.Destroy ');
    {$ENDIF}
    inherited Destroy;
  end;
  