anchor.diff:      property    TabOrder;
       property    OnButtonClick;
       property    OnShowHint;
  +    property    OnFilenameSet: TFilenameSetEvent read FOnFilenameSet write FOnFilenameSet;
     end;
   
   
  
positive.code: procedure TfpgFileNameEdit.InternalButtonClick(Sender: TObject);
  var
    dlg: TfpgFileDialog;
  begin
    dlg := TfpgFileDialog.Create(nil);
    try
      if FileName = '' then
  
negative.code:   ;
  
  type
  
    TfpgBaseEditButton = class(TfpgAbstractPanel)
    private
      FOnButtonClick: TNotifyEvent;
  