[alexteam]

Function GetMinEnchantedItemByItemId(itemid : integer):integer;
var
  i, MinFound : integer;
begin
  minfound := $ffff;
  result := -1;
  i := 0;
  while i < колличесвоэлементоввмасивеBaseItems do
  begin
  if (BaseItems[i,3] =  itemid) and (BaseItems[i,10] < MinFound) then
    begin
      MinFound := BaseItems[i,10];
      result := i;
    end;
  inc(i);
  end;
end;

поиск минимально заточеного предмета по итемайди.

var
index : integer;
begin
index := GetMinEnchantedItemByItemId(itemid);
if index >= 0 then
  begin
  //используем BaseItems[index,1..10]
  end;
end;

.... BaseItems[index,10] ?