
(*
 Delphi Object and Component Reference
# {bmc bm18.BMP} {bmc bm9.BMP} FormatCount, Formats example
The following code adds each format on the Clipboard to ListBox1 when Button1 is clicked. Note: You will need to add Clipbrd to the uses clause (Delphi) or include <Clipbrd.hpp> (C++).
*) 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  for(int i=0; i < Clipboard()->FormatCount;i++)
    ListBox1->Items->Add(IntToStr(Clipboard()->Formats[i]));
} 
