DeleteVR Example for Delphi

try
begin
   LEADDicom1.EnableMethodErrors := true;
   { move to the selected VR }
   LEADDicom1.FindVR(VR_IS);
   { delete it }
   LEADDicom1.DeleteVR();
end;
except
      ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
end;