DefaultUID Example for Delphi

Screen.Cursor := crHourGlass;
{ Restore to default values }
LEADDicom1.DefaultUID();
Screen.Cursor := crDefault;