DefaultVR Example for Delphi

Screen.Cursor := crHourGlass;
LEADDicom1.DefaultVR();
Screen.Cursor := crDefault;