macos - FireMonkey/Rad Studio XE2: OS X で SaveDialog フィルタを表示するにはどうすればよいですか?

Question

重複の可能性:
FireMonkey/Rad Studio XE2: OS X で SaveDialog フィルターを表示するにはどうすればよいですか?

私は（Delphi XE2）Firemonkey サンプル プログラムを作成しました。このプログラムには、TButton と TSavedialog と 2 つの異なるフィルタが含まれています。(TSaveDialog コンポーネントは、Win32/Win64 および OS X プラットフォームをサポートしています。)

Win32/Win64 では正常に動作しますが、OS X (VirtualBox/OS X 10.7.x) で Savedialog フィルターが表示されない理由はわかりません。

OS X で動作させるにはどうすればよいですか?

procedure TForm1.Button_SaveClick(Sender: TObject);
begin
  SaveDialog.Filter:='Format_1 (*.fmt1)|*.fmt1|Format_2 (*.fmt2)|*.fmt2';

  If Savedialog.Execute Then ShowMessage(SaveDialog.FileName+#13+'Selected filterindex: '+Inttostr(SaveDialog.FilterIndex));
end;