if pck[1]=#$62 then begin x:=ReadD(length(pck)-3); //считываем в integer x последние 4 байта из pck end;