GetTagCount Example for Delphi

var
   nCount: Integer;
begin
   nCount:= LEADDicomDS1.GetTagCount ();
   ShowMessage('There are ' + IntToStr(nCount) + ' Tag Items.');
end;