[fpc-pascal] Lnet problem. In console mode, cannot have 2 listening socket

[Dennis Poon]

I use the console example lserver.pp in LNet and it works fine that way.
However, when I modified it to have 2 listening socket (TLTCP) listen 
one after another , and in the run loop,
    repeat
       socket1.CallAction;
      socket2.CallAction;
   until Quit1 or Quit2;

Only the first socket that listens runs normally,the socket than listen 
after the first, cannot accept client.

I am wondering this non-thread loop of LNet only supports 1 running 
server socket.

Any one has any idea?

Dennis