这个给你一个简单的代码，仅提供思路。
uses Clipbrd; //引用单元
procedure TForm1.Button1Click(Sender: TObject);
var
Bmp: TBitmap;
begin
Bmp := TBitmap.Create;
Bmp.SetSize(Image1.Width, Image1.Height);
Bmp.Assign(Image1.Picture.Graphic);
Clipboard.Assign(Bmp); //放到剪贴板内
Bmp.Free;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024