EnumTags example for C++ Builder

void __fastcall TForm1::btnEnumTagsClick(TObject *Sender)
{
   LEADImage1->EnumTags("clean.tif", 0, 0);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::LEADImage1EnumTags(WORD uTag, WORD uType,
      DWORD uCount, bool &bContinue)
{
   // Displaying the Tag's Info.
   ShowMessage("Tag = " + IntToStr(uTag) + "\n" +
               "Type = " + IntToStr(uType) + "\n" +
               "uCount = " + IntToStr(uCount));

   bContinue= true;  // Keep enumerating tags.
}