anchor.diff:    s: string;
   begin
     s := 'text/plain';
  -  Accept := AMimeList.IndexOf(s) > -1;
  +  if chkAccept.Checked then
  +    Accept := False
  +  else
  +    Accept := AMimeList.IndexOf(s) > -1;
     if Accept then
     begin
       if AMimeChoice <> s then
  
positive.code:     Label2: TfpgLabel;
      Label3: TfpgLabel;
      chkAcceptDrops: TfpgCheckBox;
      {@VFD_HEAD_END: MainForm}
      procedure CheckAcceptDropsChanged(Sender: TObject);
      procedure Edit1DragDrop(Sender, Source: TObject; X, Y: integer; AData: variant);
  
negative.code: procedure TMainForm.Button1Clicked(Sender: TObject);
  begin
    Close;
  end;
  
  procedure TMainForm.btnClearClicked(Sender: TObject);
  begin
    Grid1.RowCount := 0;
  end;
  
  procedure TMainForm.LabelDragStartDetected(Sender: TObject);
  