GetTagCount Example for Delphi

var
   uCount: Cardinal;
begin
   uCount := LEADDicom1.GetTagCount();
   ShowMessage('There are ' + IntToStr(uCount) + ' Tag Items.');
end;