EnumTags example for Delphi

procedure TForm1.btnEnumTagsClick(Sender: TObject);
begin
   LEADImage1.EnumTags('clean.tif', 0, 0);
end;

procedure TForm1.LEADImage1EnumTags(uTag, uType: Word; uCount: Cardinal;
  var bContinue: Boolean);
begin
   // Displaying the Tag's Info.
   ShowMessage('Tag = ' + IntToStr(uTag) + Chr(13) +
               'Type = ' + IntToStr(uType) + Chr(13) +
               'uCount = ' + IntToStr(uCount));

   bContinue:= True;  // Keep enumerating tags.
end;