Получение имени формата обмена

function l3ClipboardFormatName(aFormat: hFormat): string;
var
  Buffer: array[0..255] of Char;
begin
  SetString(Result, Buffer, GetClipboardFormatName(aFormat, Buffer, 255));
  if (Result = EmptyStr) then
    case aFormat of
      CF_BITMAP: Result := 'Bitmap';
      CF_DIB: Result := 'DIB Bitmap';
      CF_DIF: Result := 'DIF';
      CF_METAFILEPICT: Result := 'Metafile Picture';
      CF_ENHMETAFILE: Result := 'Enchanced Metafile';
      CF_OEMTEXT: Result := 'OEM Text';
      CF_PALETTE: Result := 'Palette';
      CF_PENDATA: Result := 'Pen Data';
      CF_RIFF: Result := 'RIFF File';
      CF_SYLK: Result := 'SYLK';
      CF_TEXT: Result := 'Text';
      CF_TIFF: Result := 'Tag Image';
      CF_WAVE: Result := 'Wave';
      CF_Locale: Result := 'Locale';
      CF_UnicodeText: Result := 'Unicode Text';
      CF_hDrop : Result := 'Explorer Files';
    end;
end;