listensocket.onsessionavailable := sc.sessionavailable;\r
writeln('listening');\r
listensocket.listen;\r
+ writeln('listen call returned');\r
writeln(listensocket.getxport);\r
writeln('listen socket is number ', listensocket.fdhandlein);\r
writeln('creating and setting up server socket');\r