DeleteTag Example for Delphi

var
   nCode: Integer;
begin
   nCode:= 131073;
   //move to the selected Tag
   LEADDicomDS1.FindTag (nCode);
   //delete it
   LEADDicomDS1.DeleteTag ();
end;