GetUIDCount Example for Delphi

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