GetUIDCount Example for Delphi

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