用listen监听后如何关闭重新监听

在用listen(bindserver,5);监听后如何
关闭
再重新监听端口初始代码
wversion:=MAKEWORD(2,2);
yz:=WSASTARTUP(wversion,wsadata);
////////////////////////////////////////////////
bindserver:=socket(AF_INET,SOCK_STREAM,0);
addrserver.sin_family:=AF_INET;
addrserver.sin_port:=htons(port);//监听的端口
addrserver.sin_addr.S_addr:=INADDR_ANY;
setsockopt(bindserver,SOL_SOCKET,SO_RCVTIMEO,timeout,sizeof(timeout)); //设置超时时间
bind(bindserver,addrserver,sizeof(addrserver)); //绑定
yz:=listen(bindserver,5); //监听
writeln('Listen .......... OK!');
在进行若干操作后如何关闭这个监听再重新进入监听端口的状态我用这段代码关闭后
WSACleanup();
closesocket(getclient);
closesocket(bindserver); 再调用开始的初始化代码不能重新监听
yz:=listen(bindserver,5); 它返回-1不能创建监听请高手给予指点