begin if FromClient then Case ord(pck[1]) of $01: begin buf:=pck; WriteD(1); pck:=buf; end; $2F: begin buf:=pck; WriteC(0,6); pck:=buf; end; $81: pck:=''; end; end.