DeleteUID Example for Delphi

var
   sCode: String;
begin
   LEADDicom1.EnableMethodErrors := true;
   try
   begin
      sCode := '1.2.840.10008.1.2';
      { move to the selected UID }
      LEADDicom1.FindUID(sCode);
      { delete it }
      LEADDicom1.DeleteUID();
   end;
   except
      ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
   end;
end;