begin if FromClient and (pck[1]=#$23) and (ConnectName=name) then begin buf:=pck; for i:=1 to 50 do SendToServerEx(name); end; end.