FireMonkey 使用剪贴板

我想在安卓里面使用剪贴板，把当前程序的内容复制到剪贴板上。

查了一下资料，应该这样做：

uses FMX.Platform, FMX.Clipboard;

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
var
  ClipboardService: IFMXExtendedClipboardService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService, ClipboardService) then
  begin
    ClipboardService.SetText('AAAABB CCC');
  end;
end;

上述代码，在 Windows 底下，在 Android 底下，测试有效。