[червь]

я по-своему писал эту функцию, работает исправно, кстати на том же серваке что и у автора

  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 мп банок, замени на нужный и все.