Баг:
Код:
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
для проверки прикрепил лог пакетов