DefaultVR Example for Delphi

   Screen.Cursor:= crHourglass;
   LEADDicomDS1.DefaultVR ();
   Screen.Cursor:= crDefault;