DeleteIOD Example for Delphi

   LEADDicom1.EnableMethodErrors := true;
   try
   begin
      LEADDicom1.MoveFirstIOD(false);
      LEADDicom1.DeleteIOD();
   end;
   except
      ShowMessage('Error Number: ' + IntToStr(LEADDicom1.Error));
   end;