Delphi：尝试查找开放的TCP端口，但不检测任何开放端口

I have two processes that must run on two free TCP ports on the PC. This must be a painless out-of-the-box process for it's user, I want to auto detect free ports to avoid conflicts and apply these port numbers to these two processes.I have two processes that must run on two free