var id:integer; begin if FromClient and (pck[1]=#$B5) then begin id:=ReadD(4); buf:=hstr('17 54 D4 23 00 00 00 00 00 00 00'); writes('id: '+inttostr(id)); SendToClient; end; end.