代码如下：
void __fastcall TMainForm::AddTag(AnsiString tag, TRichEdit * RichEdit)
{
        TClipboard *clb = Clipboard();
        AnsiString EditText = RichEdit->SelText;
        if(EditText.IsEmpty())
        {
                ShowMessage("请选择标签内应框定的文字!");
                return;
        }
        else
        {
                RichEdit->CutToClipboard();
                clb->AsText = "<"+tag+">"+EditText+"</"+tag+">";
                //ShowMessage(Clipboard()->AsText);
                RichEdit->PasteFromClipboard();
        }
        delete clb;
}
第一次执行这个函数没有错误，再次执行时报错：Cannot open clipboard。
是不是clipboard有个清空？。我用clb->Clear(),clb->Close()等都不能阻止这个错误，请各位指教！谢谢.