DeleteVR Example for Delphi

var
   nCode: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= True;
   nCode:= 18771;
   //move to the selected VR
   LEADDicomDS1.FindVR (nCode);
   //delete it
   LEADDicomDS1.DeleteVR ();
end;