Trabajar con operadores binarios

[mcs]

Más o menos sería esto:

packet[i]=((lenField shr 7) And $7f) Or $80;
Inc(i);
packet[i]=lenfield And $7f;
Inc(i);
packet[i]=((dataLen shr 7) And $7f) Or $80;
Inc(i);

packet[i]=(partPos shr 8) And $ff;
Inc(i);
packet[i]=partPos And $ff;
Inc(i);

Por tanto:
<< equivale a shl, pero conservando el bit de signo
>> equivale a shr, pero conservando el bit de signo
>>> es un shr, pero para datos sin signo
& es un And
| es un Or