[alexteam]

как то так.
result - результат функции.
его так же можно использовать как локальную переменную.

// СКОЛЬКО предметов с itemID
//-------------------
function GetsumitemID(itemID:integer) : integer;
var
  i : integer;
begin
  Result := 0; //В начале у нас 0 вещей.
  for i:=1 to max do
    if (BaseItems[i,3]=itemID) then 
      inc(result, BaseItems[i,5]);
end;

// СКОЛЬКО предметов с itemID и Maxlvl
//---------------------
function GetsumMaxlvl(itemID,Maxlvl:integer) : integer;
var
  i : integer;
begin
  result := 0;
  for i:=1 to max do
  if (BaseItems[i,3]=itemID) and (BaseItems[i,10]=Maxlvl) then
  inc(result, BaseItems[i,5]);
end;

Добавлено через 2 минуты
кстати... рекомендации - называй переменные своими именами... ибо через неделю ты сам не разберешся в своем же скрипте %)
я про то что у тебя EnchantLevel так же Maxlvl ну и в этом духе..