C++ builder XE10如何利用剪贴板复制粘贴

//---------------------------------------------------------------------------
#include <Clipbrd.hpp>   //引入头文件与原来低版本的有所不同，原来的是<vcl\Clipbrd.hpp>,但在XE10会出错
#include <vcl.h>
#pragma hdrstop

#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
  Clipboard()->AsText = "拷贝到剪贴版的文字数据";
  Memo1->Text=Clipboard()->AsText;
}