使用TClientSocket和TServerSocket写的端口映射供初学Socket编程的Delphi学者参考程序中设置最大会话数为20