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

[Marco van de Voort]

In our previous episode, Ewald said:
> 
> The point being that the answer to one of the OP sub-problems [the one
> quoted _partially_ above], can be to either use:
> - pthread_cancel() [overkill, I know, but nonetheless a solution]
> - non-blocking sockets [not very code-efficient IMHO if you only want to
> exit an application gracefully (high code versus ouput ratio)]
> - something different (one can try experimenting with shutting down the
> listening socket, using signals, ... but I haven't done so, so I can't
> give any feedback on this)

Select on the main socket before doing the accept?