SetUIDName Example for Delphi

LEADDicom1.EnableMethodErrors := true;
try
   { move to the selected UID }
   LEADDicom1.FindIndexUID(12);
   ShowMessage('Original UID name: ' + LEADDicom1.CurrentUID.Name);
   { change the name }
   LEADDicom1.SetUIDName('New UID Name');
   ShowMessage('Modified UID name: ' + LEADDicom1.CurrentUID.Name);
except
   ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
end;