procedure TFormMain.ButtonCopyCodeClick(Sender: TObject);
var
clp: IFMXClipboardService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService) then
begin
clp := IFMXClipboardService(TPlatformServices.Current.GetPlatformService(IFMXClipboardService));
clp.SetClipboard(MemoOutput.Text);
end;
end;