anchor.diff:      Hint := '';
       ImageName := '';
       TabOrder := 4;
  +    OnClick := @btnClearClicked;
     end;
   
     MyDragSourceLabel := TfpgLabel.Create(self);
  
positive.code:     procedure Bevel1DragLeave(Sender: TObject);
      procedure PanelDragDrop(Sender, Source: TObject; X, Y: integer; AData: variant);
      procedure Button1Clicked(Sender: TObject);
      procedure LabelDragStartDetected(Sender: TObject);
      procedure ShowMimeList(AMimeList: TStringList);
    public
  
negative.code:     Name := 'MyDragSourceLabel';
      SetPosition(28, 20, 84, 40);
      Alignment := taCenter;
      BackgroundColor := TfpgColor($67D47A);
      FontDesc := '#Label1';
      Hint := '';
      Layout := tlCenter;
  