anchor.diff:  procedure TfpgFileNameEdit.InternalButtonClick(Sender: TObject);
   var
     dlg: TfpgFileDialog;
  -begin
  +  old: TfpgString;
  +begin
  +  old := FEdit.Text;
     dlg := TfpgFileDialog.Create(nil);
     try
       if FileName = '' then
  
positive.code:     property    TabOrder;
      property    OnButtonClick;
      property    OnShowHint;
    end;
  
  
  
negative.code:     dlg.Free;
    end;
    inherited InternalButtonClick(Sender);
    if old <> FEdit.Text then
      DoFilenameSet(old, FEdit.Text);
  end;
  
  
  