вставка
if not TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService, ClipboardService) then
exit;
if ClipboardService.HasImage then
begin
b := TBitmap.Create;
bs := ClipboardService.GetImage;
b.Assign(bs);
end
копирование
....
surface := TBitmapSurface.Create();
surface.Assign(bitmap);
ClipboardService.SetImage(surface)