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:     procedure   FilterChange(Sender: TObject);
      procedure   DirChange(Sender: TObject);
      procedure   UpDirClick(Sender: TObject);
      procedure   edFilenameChanged(Sender: TObject);
      procedure   UpdateButtonState;
    protected
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   btnOKClick(Sender: TObject); override;
  