SetVRName Example for Delphi

LEADDicom1.EnableMethodErrors := true;
try
   { move to the selected VR }
   LEADDicom1.FindIndexVR(12);
   ShowMessage('Original VR name: ' + LEADDicom1.CurrentVR.Name);
   { change the name }
   LEADDicom1.SetVRName('New VR Name');
   ShowMessage('Modified VR name: ' + LEADDicom1.CurrentVR.Name);
except
   ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
end;