Работа с буфером С++ Builder

private:
    HWND FNextCbViewer;
    void __fastcall WMChangeCBChain(TWMChangeCBChain &Msg)
    {
        Msg.Result = 0;
        if(Msg.Remove == FNextCbViewer)
        {
            FNextCbViewer = Msg.Next;
        }
        else
        {   // Информируем дальше по цепочке о событии изменении цепочки
            ::SendMessage(FNextCbViewer, WM_CHANGECBCHAIN, WPARAM(Msg.Remove), LPARAM(Msg.Next));
        }
    }
    void __fastcall WMDrawClipboard(TWMDrawClipboard &Msg)
    {
        try
        {   // Собственно, уведомление пользователя. Тут можно делать с Clipboard-ом все что нужно
            Memo1->Lines->Add(Clipboard()->AsText);
        }
        __finally
        {   // Но в конце информируем следующего в цепочке об изменении буфера
            ::SendMessage(FNextCbViewer, WM_DRAWCLIPBOARD, WPARAM(0), LPARAM(0));
        }
    }
 
    BEGIN_MESSAGE_MAP
        VCL_MESSAGE_HANDLER(WM_CHANGECBCHAIN, TWMChangeCBChain, WMChangeCBChain)
        VCL_MESSAGE_HANDLER(WM_DRAWCLIPBOARD, TWMDrawClipboard, WMDrawClipboard)
    END_MESSAGE_MAP(TForm)

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    FNextCbViewer = ::SetClipboardViewer(this->Handle);
}
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    if(FNextCbViewer)
    {
        ::ChangeClipboardChain(this->Handle, FNextCbViewer);
        FNextCbViewer = 0;
    }
}