Скопировать картинку в Clipboard

procedure TForm2.Button72Click(Sender: TObject);
Var
  Clipboard: IFMXClipboardService;
  value: TValue;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, IInterface(Clipboard)) then
  begin
     value := form2.Image1.Bitmap;
     Clipboard.SetClipboard(Value);
 end;
end;

Value := TValue.From(Image1.Bitmap);

Value := TValue.From(Image1.Bitmap);

procedure TForm1.Button1Click(Sender: TObject);
var
  Clipboard: IFMXClipboardService; //FMX.Platform
  Value: TValue; //System.Rtti
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, Clipboard) then
  begin
    Value := TValue.From(Image1.Bitmap);
    Clipboard.SetClipboard(Value);
 
    Value := Clipboard.GetClipboard;
    Image2.Bitmap.Assign(TBitmap(Value.AsObject));
  end;
end;

ShowMessage(System.TypInfo.GetTypeName(Value.TypeInfo)); //System.TypInfo

ShowMessage(System.TypInfo.GetTypeName(Value.TypeInfo)); //System.TypInfo

Image2.Bitmap.Assign(TBitmapOfItem(Value.AsObject));

procedure TForm2.Button72Click(Sender: TObject);
var
  Clipboard: IFMXClipboardService; //FMX.Platform
  Value: TValue; //System.Rtti
  BMP: TBitmap;
begin
  BMP := TBitmap.Create(round(ImageRecepta.Width), round(ImageRecepta.Height));
  try
    BMP.Canvas.BeginScene();
    FramedScrollBoxRec.PaintTo(BMP.Canvas, ImageRecepta.ClipRect);
    BMP.Canvas.EndScene;
    if TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService, Clipboard) then
       begin
        Value := TValue.From(BMP);
        Clipboard.SetClipboard(BMP);
       end;
     finally
   //BMP.Free;
  end;
ShowMessage(System.TypInfo.GetTypeName(Value.TypeInfo));
end;

Image2.Bitmap.Assign(TBitmapOfItem(Value.AsObject));