[Fer123]

Я не знаю как правильно объяснить и тут надо полностью просмотреть скрипт но в общем для 9 скрипта
в процедуре InventoryUpdate:
после строчек

  EnchantLevel:=ReadH(j);
    CustType2:=ReadH(j);
    AugmentationID:=ReadD(j)

;
вставь
if (UpdType=2) and (ObjectID=ItemOID) then CurEnchLvl:=EnchantLevel;
в процедуре CheckBoxItem_Click и ComboBoxItem после

    ItemOID:=BaseItems[ComboBoxItem.ItemIndex+1,2];
    ItemID:=BaseItems[ComboBoxItem.ItemIndex+1,3];

вставь CurEnchLvl:=BaseItems[ComboBoxItem.ItemIndex+1,10];
По убирай везде где есть

repeat
            ItemOID:=GetItemEnchant(ItemID, CurEnchLvl);
            if ItemOID=0 then begin
              inc(CurEnchLvl);
              Edit2.text:=inttostr(CurEnchLvl);
            end;
          until ItemOID<>0;

и другие присвоения CurEnchLvl. А также всякие проверки на сломанность оружия, все равно блессами точишь.