[fpc-pascal] How to close TInetServer without except?

[Marco van de Voort]

In our previous episode, Zaher Dirkey said:
> On Fri, May 3, 2013 at 9:13 PM, Marco van de Voort <marcov at stack.nl> wrote:
> 
> > Select on the main socket before doing the accept?
> 
> 
> ?No i am not use Select before Accept, accept is blocking the thread.

That's the point. Don't. Use a select, it has a timeout, and accept only if
select shows activity on the listened to socket.