[NLObP]

Вкратце, дело происходит примерно так:
1 - считываем два байта, это как раз длина следующих за ними данных, т.е. длина пакета - 2
GetSocketData(SSockl,Packet,2);

2 - считываем сам пакет
if not GetSocketData(SSockl,Packet.DataB,Packet.Size-2) then Break;

3- отсылаем в обработчик пакетов
if IsGamel then PacketProcesor(PacketB,CSockl,id,4)
else PacketProcesor(PacketB,CSockl,id,2);

Все обернуто в цикл и всякие проверки.