delphi关于多线程的控件包含demo示例