procedure TForm1.BtnShowFormatsClick(Sender: TObject);

var

 buf: array[0..60] of Char;

 n: Integer;

 fmt: Word;

 name: string[30];

begin

 MemFormats.Clear;

 for n := 0 to Clipboard.FormatCount - 1 do

 begin

  fmt := Clipboard.Formats[n];

  if GetclipboardFormatName(fmt, buf, Pred(Sizeof(buf))) <> 0 then

  MemFormats.Lines.Add(StrPas(buf))

  else

  begin

  case fmt of

  1: name := 'CF_TEXT';

  2: name := 'CF_BITMAP';

  3: name := 'CF_METAFILEPICT';

  4: name := 'CF_SYLK';

  5: name := 'CF_DIF';

  6: name := 'CF_TIFF';

  7: name := 'CF_OEMTEXT';

  8: name := 'CF_DIB';

  9: name := 'CF_PALETTE';

  10: name := 'CF_PENDATA';

  11: name := 'CF_RIFF';

  12: name := 'CF_WAVE';

  13: name := 'CF_UNICODETEXT';

  14: name := 'CF_ENHMETAFILE';

  15: name := 'CF_HDROP (Win 95)';

  16: name := 'CF_LOCALE (Win 95)';

  17: name := 'CF_MAX (Win 95)';

  $0080: name := 'CF_OWNERDISPLAY';

  $0081: name := 'CF_DSPTEXT';

  $0082: name := 'CF_DSPBITMAP';

  $0083: name := 'CF_DSPMETAFILEPICT';

  $008E: name := 'CF_DSPENHMETAFILE';

  $0200..$02FF: name := 'частный формат';

  $0300..$03FF: name := 'Объект GDI';

  else

  name := 'неизвестный формат';

  end;

  MemFormats.Lines.Add(name);

  end;

 end;

end;