memo2.CopyToClipboard;
无效...

uses FMX.Platform //添加单元
var
Clipboard:IFMXClipboardService;//剪贴板变量
//内容写入剪贴板：
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(Clipboard)) then begin Clipboard.SetClipboard(memo1.Text); end;
//读取剪贴板内容： if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,IInterface(Clipboard)) then begin memo1.Text:=''; memo1.Text:=Clipboard.GetClipboard.AsString; //读取字符串内容 end;