Delphi编写系统服务六：在服务中使用COM组件

 在服务中调用COM组件不能像在桌面程序中直接创建，在每次创建之前先调用CoInitialize(nil)，释放的时候调用CoUninitialize。例如：调用ADO组件
var
  Qry: TADOQuery;
begin
  CoInitialize(nil);
  Qry := TADOQuery.Create(nil);
  try
    ...
  finally
    Qry.Free;
    CoUninitialize;
  end;
end;