[Fer123]

function GetInv2(obj:integer): integer; 
var
  i: integer;
begin
  for i:=0 to 79 do if Inventory[i,2]=obj then Result:=Result+Inventory[i,3];
end;

Просто вставь между основными begin и end проверку
if GetInv2(ID скрола)<=5 then
begin
...
end;