Delphi 编写windows服务

如果使用到Ado控件，需要和线程一样初始化com环境，每初始化一个TService就初始化了个独立线程

通常ServiceStart里CoInitialize(nil);ServiceStop里 CoUninitialize();即可