[xkor]

и всётаки зря кто то сделал:

//проверяем на выход за границу пакета
  if PosInPkt>Size+10 then raise ERangeError.CreateFmt(result+' is not within the valid range of %d', [Size]);