DeleteUID Example for Delphi

var
   strCode: String;
begin
   LEADDicomDS1.EnableMethodErrors:= True;
   strCode:= '1.2.840.10008.1.2';
   //move to the selected UID
   LEADDicomDS1.FindUID (strCode);
   //delete it
   LEADDicomDS1.DeleteUID ();
end;