[alexteam]

12й пост поправить

Function ObjIdInArray(value:integer):integer;
var
i : integer;
begin
  i := 0;
  result := -1;
  while (i < itemcount) do 
  begin
    if itemarray[i] = value then 
      begin
        result := i;
        exit;
      end;

    inc(i);
  end;
end;

использовать

var
itempos : integer;
begin
SearchItemPos := 0;

itempos := ObjIdInArray(itemobjectid, startpos);//получаем номер ячейки в массиве итемаррай с указаным обжектайди

if itempos <> -1 then //если номер ячейки не равен -1 т.е. ячейка была найдена
  begin 
    blablabla с itemobjectid 
  end;

end;