[kpa9pt]

Всё я совсем разобрался не выходит из-за этого:

if FromClient and (pck[1]=#$D0) then
begin
SubID:=ReadH(2);
SkillID:=ReadD(4);
SkillLvl:=ReadD(8)-1;
CurrEnch:=1;
end;

Если кому-то это понадобиться пишите в пм объясню, что сделать.