[fpc-pascal] How to stop a HttpApp via request?

[silvioprog]

Hello,

I'm trying to stop a HTTP server via request. My code is:

http://pastebin.com/503S2Nin (or demo in attached)

But it returns:

"Could not accept a client connection on socket: -1; error 10004"

And generates leaks, but, If I comment this line:

//    App.Threaded := True;

It works fine.

How do I stop the socket before finishing my application?

Thank you!

-- 
Silvio Clécio
My public projects - github.com/silvioprog
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20130923/b12f49ee/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: http.zip
Type: application/zip
Size: 1720 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20130923/b12f49ee/attachment.zip>