[RoZ]

Баг:

PktStr:=HexToString(Copy(Thread[CID].Dump.Strings[PckCount],23,4));
    //LeaveCriticalSection(_cs);
    id:=Byte(PktStr[1]);                   //фактическое начало пакета, ID
    SubId:=Word(id shl 8+Byte(PktStr[2])); //считываем SubId

При PktStr = '' выдаёт ошибку на id:=Byte(PktStr[1]);
добавьте проверку.

Пакет 03DEFAC3A9E9ADEB3F0200

для проверки прикрепил лог пакетов