я по-своему писал эту функцию, работает исправно, кстати на том же серваке что и у автора
Код:
if fromserver and (ConnectName = bot1) and (pck[1] = #$11) and (ID = 0)
then
begin
for i := 12 to 9999 do
begin
if readd(i) = 728 then
begin
ID := readd(i - 8);
exit;
end;
if readd(i) <> 728 then
i := i + 64;
end;
end;
ID типа integer, туда сохранится ObjId. 728-ID мп банок, замени на нужный и все.