DefaultUID Example for Delphi

   Screen.Cursor:= crHourglass;
   //Restore default Tag values
   LEADDicomDS1.DefaultUID ();
   Screen.Cursor:= crDefault;