SetTagName Example for Delphi

LEADDicom1.EnableMethodErrors := true;
try
   { move to the selected Tag }
   LEADDicom1.FindIndexTag(12);
   ShowMessage('Original Tag name: ' + LEADDicom1.CurrentTag.Name);
   { change the name }
   LEADDicom1.SetTagName('New Tag Name');
   ShowMessage('Modified Tag name: ' + LEADDicom1.CurrentTag.Name);
except
   ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
end;