Sprawdzanie co jest w schowku

Aby sprawdzić co zawiera schowek i wyświetlić informację o zawartości schowka na etykiecie Label1:

Unit1.cpp

#include <Clipbrd.hpp>
void __fastcall
TForm1::Button1Click(TObject *Sender)
{
   if (Clipboard()->HasFormat(CF_TEXT))
      Label1->Caption = "W schowku jest tekst";
   else if (Clipboard()->HasFormat(CF_BITMAP))
      Label1->Caption = "W schowku jest bitmapa";
   else if (Clipboard()->HasFormat(CF_PICTURE))
      Label1->Caption = "W schowku jest obiekt typu TPicture";
   else
      Label1->Caption = "W schowku jest coś innego";
}