Reference TCustomFileDialog

  TCustomFileDialog = class(TCustomDialog, IFileDialog)
  protected
    FKind: TFileDialogKind;
    FFileName: string;
    FFiles: StringArray;
    FFilter: string;
    FFilterIndex: Integer;
    FInitialDir: string;
    FDefaultExt: string;
    FMultiSelect: Boolean;
    { Close the dialog with the files chosen, accepting it if there are any }
    procedure CloseFiles(const Files: StringArray);
  public
    { Create an open or save dialog }
    constructor Create(Kind: TFileDialogKind); virtual;
  end;