anchor.diff:      Anchors := [anLeft, anRight, anBottom];
       Text := '';
       FontDesc := '#Edit1';
  +    OnChange := @edFilenameChanged;
     end;
     
     { Filter section }
  
positive.code: procedure TfpgFileDialog.UpDirClick(Sender: TObject);
  begin
    SetCurrentDirectory('..');
  end;
  
  procedure TfpgFileDialog.SetCurrentDirectory(const ADir: string);
  
negative.code:   if grid.CurrentEntry.EntryType <> etDir then
      edFileName.Text := grid.CurrentEntry.Name;
  
    UpdateButtonState;
  
    lbFileInfo.Text := s;
  end;
  