anchor.diff:    m.Text := 'My name is Earl';
     m.HTML := 'My name is <b>Earl</b>';
     { via generic SetData function }
  -  m.SetData('text/special', 'type number three');
  -  v := 'type number four';
  -  m.SetData('text/four', v);
  -  m.SetData('text/five', 'type number five');
  +  //m.SetData('text/special', 'type number three');
  +  //v := 'type number four';
  +  //m.SetData('text/four', v);
  +  //m.SetData('text/five', 'type number five');
   
     { tell TfpgDrag who is the Source of the drag }
   //  d := TfpgDrag.Create(MyDragSourceLabel);
  
positive.code:   s: string;
  begin
    s := 'text/plain';
    Accept := AMimeList.IndexOf(s) > -1;
    if Accept then
    begin
      if AMimeChoice <> s then
  
negative.code:     procedure Bevel1DragLeave(Sender: TObject);
      procedure PanelDragDrop(Sender, Source: TObject; X, Y: integer; AData: variant);
      procedure Button1Clicked(Sender: TObject);
      procedure btnClearClicked(Sender: TObject);
      procedure LabelDragStartDetected(Sender: TObject);
      procedure ShowMimeList(AMimeList: TStringList);
    public
  