delphi ADOQuery '尚未调用 CoInitialize。

uses
ActiveX;

initialization
  CoInitialize(nil);
Finalization
  CoUninitialize();