{
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++).
} 
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Clipboard.FormatCount-1 do
    ListBox1.Items.Add(IntToStr(Clipboard.Formats[I]));
end; 
