[supernewbie]

потому что это чушь

procedure ItemList;
var
i:integer;
ID:integer;
begin
for i := 0 to 100 do
begin
if readd(i) = itemid then
begin
ID := readd(i - 8);
exit;
end;
if readd(i) <> itemid then
i := i + 64;
end;

end;