Стоит добавить одну модификацию во втором цикле for i:=0 to Count do, где Count это количество занятых слотов в инвентаре (узнается из того же пакета). Такое желательно сделать чтобы не выходить за рамки пакета в цикле
__________________
В любом из нас спит гений. И с каждым днем все крепче.