Gray314, попробуй в своем скрипте найти процедуру ItemList и в ней вот такую строку заремить/удалить - BaseItems[i,1]:=ReadH(j);
для ориентира:
delphi Код:
//..............................................................................
procedure ItemList;
...
for i:=1 to ListSize do begin
if (i<=ListSize) then begin
не нужна --> //BaseItems[i,1]:=ReadH(j);
BaseItems[i,2]:=ReadD(j);//ObjectID
BaseItems[i,3]:=ReadD(j);//ItemID
...
end;