SetVRName Example for Delphi

var
   nIndex: Integer;
begin
   nIndex:= 13;
   LEADDicomDS1.EnableMethodErrors:= True;

   //move to the selected VR
   LEADDicomDS1.FindIndexVR (nIndex);
   //change the name
   LEADDicomDS1.SetVRName ('New VR Name');

   ShowMessage('New Name = ' + LEADDicomDS1.DefaultInterface.Get_CurrentVR ().Name);
end;