idudpsever端口被占用后，怎么写自动+1

Question

try
    idudpserver1.active:=true;//port:3001，缺省用来接收客户端信息
    //idudpserver1端口可能存在占用
  except
    on e:exception do
    begin
      idudpserver1.Active:=false;
      idudpserver1.DefaultPort:=idudpserver1.DefaultPort+1;
      idudpserver1.active:=true;
    end;
  end; 

Answer 1

这样写还是会提示出错
could not bind socket.Address and port are already in use.

Answer 2

  while not idudpserver1.Active do
  begin
    try
      idudpserver1.Active := True;
    except
        idudpserver1.Bindings.Clear;
        idudpserver1.Active := False;
        idudpserver1.DefaultPort := idpsrvr1.DefaultPort + 1;
    end;
  end;