根据网络资源修改的TThread.CreateAnonymousThread,可实现线程传递参数,此为Delphi10.3代码