[klemberg]

for i=1 to 100 do begin
                    if (ItemBase[i] == 256) then begin  // например

                         КактоОбработатьЭтоЗначение(ItemBase[i]);

                    end;
end;

Добавлено через 7 минут
Но по-моему тебе нужно делать вот что:

var
     ItemBase:array[1..100] of integer;// создали массив
     objectID:integer;
     i: integer;
     flag: boolean;

procedure Init; //Вызывается при включении скрипта
begin
end;


// при приходе пакета
begin
     if FromServer and (pck[1]=#$21)  and (ReadD(12)= itemID) then begin
          // при условии
          if  условие then
               objectID:=ReadD(8);

               flag:=false; // сбрасываем флажок


               // ищем objectID в массиве
               for i=1 to 100 do begin
                    if (ItemBase[i] = objectID) then begin

                         // текущий objectID уже есть в массиве, т.е. добавлять новый не надо.
                         // ставим флажок, который далее пропустит цикл поиска первого пустого значения и добавление в массив objectID
                         flag := true;

                         Break;  // прерываем дальнейший перебор массива.
                    end;
               end;


               // нужно добавить текущий objectID в массив
               if (flag = false) then begin

                     // ищем первый свободный элемент в массиве
                     for i:=1 to 100 do begin
                         if (ItemBase[i] = 0) then begin

                              // как только нашли - на его место пишем текущий objectID
                              ItemBase[i]:= objectID;  // да просто :)

                              Break;  // прерываем дальнейший перебор массива.
                         end;
                     end;
               end;
          end;
     end;
end.