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;