如果监听端口被占用，依然会返回成功的问题

GateSocket.Start(
                procedure(const AListen: ICrossListen; const ASuccess: Boolean)
                begin
                  if not ASuccess then begin
                    Application.MessageBox('监听端口被占用，请更换监听端口后重新启动！！！', '提示信息',
                      MB_OK + MB_ICONERROR);
                    Exit;
                  end;
                end
              );