喫茶XRAY [Mr.XRAY掲示板]

[ FMX で TbitmaP からTbitmapSurface への変換方法は？ ]
http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi?print+201809/18090002.txt

は TBitmap --> TBitmapSurface ですが，TBitmap をクリップボードへ...は
例えば以下の感じでできるようです．
動作確認は Windows 7 U64(SP1) + Delphi 10.2.3 Community  FMX( 32 ビット Windows ) です．
uses に以下が必要です．
  FMX.Platform
  FMX.Clipboard
  FMX.Surfaces

procedure TForm1.Button3Click(Sender: TObject);
var
  LClipbrdService : IFMXExtendedClipboardService;
  LBitmap         : TBitmap;
  LBmpSurface     : TBitmapSurface;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService,
                                                       LClipbrdService) then begin
    LBitmap     := TBitmap.Create;
    LBmpSurface := TBitmapSurface.Create;
    try
      LBitmap.LoadFromFile('Image_01.bmp');
      LBmpSurface.Assign(LBitmap);
      ImageControl1.Bitmap.Assign(LBmpSurface);
      LClipbrdService.SetImage(LBmpSurface);
    finally
      FreeAndNil(LBitmap);
      FreeAndNil(LBmpSurface);
    end;
  end;
end;

直接 TBitmap をコピーするのであれば，

procedure TForm1.Button4Click(Sender: TObject);
var
  LClipbrdService : IFMXExtendedClipboardService;
  LBitmap         : TBitmap;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXExtendedClipboardService,
                                                       LClipbrdService) then begin
    LBitmap := TBitmap.Create;
    try
      LBitmap.LoadFromFile('Image_01.bmp');
      ImageControl1.Bitmap.Assign(LBitmap);
      LClipbrdService.SetClipboard(LBitmap);
    finally
      FreeAndNil(LBitmap);
    end;
  end;
end;

[参考]
[ クリップボード / ペーストボードを使用するには？ ]
https://ht-deko.com/techf018.html
[ Delphi XE8でFiremonkeyアプリケーションでクリップボードに文字列をコピーする – 山本隆の開発日誌 ]
https://www.gesource.jp/weblog/?p=6903

えっ !?
上の記事とオンラインヘルプの丸写し ?
そういうことはですね．気にしないでくださいませ (^^;