begin if (FromServer) and (pck[1]=#$CE) and (pck[2]=#$55) and (pck[3]=#$6D) then begin buf:=Hstr('80 55 3F 02 41 11 00 C7 44 01')+pck[4]+pck[5]+Hstr('00 00 33 33 33 3F'); SendToServerEx('name'); end; end.