为什么我不需要在 COM 线程内创建的线程中调用 CoInitialize？

为了学习多线程，我在 COM 线程中创建了一个线程（TRemoteDataModule).

这是我的组件工厂：

TComponentFactory.Create(ComServer, TServerConn2, Class_ServerConn2, ciMultiInstance, tmApartment);

在线程内部，我不需要调用 CoInitialize 来使用TADOQuery.Create, .Open... .Exec

我读到了在调用除 CoGetMalloc 之外的任何库函数之前，我需要在线程上初始化 COM 库，以获取指向标准分配器和内存分配函数的指针。 http://msdn.microsoft.com/en-us/library/windows/desktop/ms678543%28v=vs.85%29.aspx

但在这种情况下，CoInitialize 的缺失并没有给我带来任何麻烦。
这与线程模型有关吗？ 在哪里可以找到该主题的解释？

UPDATE:

当我说 INSIDE 时，它的意思是在 COM 方法上下文中：

interface
type
  TWorker = class(TThread); 

  TServerConn2 = class(TRemoteDataModule, IServerConn2)
  public 
    procedure Method(); safecall;
  end;


implementation 
  procedure TServerConn2.Method(); 
  var W: TWorker;
  begin
    W := TWorkerTread.Create(Self);
  end;

更新2：

The TADOConnection用于连接到数据库的当前正在 COM 线程上下文中创建（TThread.Create constructor）。虽然，TADOConnection.Open and TADOQuery.Create/.Open都在里面进行TThread.Execute .

更新 3 - Simulacrum

界面：

type
  TServerConn2 = class;

  TWorker = class(TThread)
  private
    FDB: TADOConnection;
    FOwner: TServerConn2;
  protected
    procedure Execute; override;
  public
    constructor Create(Owner: TServerConn2);
    destructor Destroy; override;
  end;

  TServerConn2 = class(TRemoteDataModule, IServerConn2)
    ADOConnection1: TADOConnection;
    procedure RemoteDataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    procedure CheckException; safecall;
  public
    User, Pswd, Str: String;
    Ok: Boolean;
  end;

执行：

class procedure TServerConn2.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

{ TWorker }

constructor TWorker.Create(Owner: TServerConn2);
begin
  inherited Create(False);
  FreeOnTerminate := True;
  FDB := TADOConnection.Create(nil);
  FOwner := Owner;
end;

destructor TWorker.Destroy;
begin
  FDB.Free;
  FOwner.Ok := True;
  inherited;
end;

procedure TWorker.Execute;
var Qry: TADOQuery;
begin
  FDB.LoginPrompt := False;
  FDB.ConnectionString := FOwner.Str;
  FDB.Open(FOwner.User, FOwner.Pswd);

  Qry := TADOQuery.Create(nil);
  try
    Qry.Connection := FDB;
    Qry.LockType := ltReadOnly;
    Qry.SQL.Text := 'SELECT TOP 1 * FROM MyTable';
    Qry.Open;
  finally
    Qry.Free;
  end;
end;

procedure TServerConn2.CheckException;
var W: TWorker;
begin
  W := TWorker.Create(Self);
  while not Ok do Sleep(100);
end;

procedure TServerConn2.RemoteDataModuleCreate(Sender: TObject);
begin
  User := 'user';
  Pswd := 'pass';
  Str := ADOConnection1.ConnectionString;
end;

initialization
  TComponentFactory.Create(ComServer, TServerConn2,
    Class_ServerConn2, ciMultiInstance, tmApartment);
end.

UPDATE 4

错误应该发生在这里：

function CreateADOObject(const ClassID: TGUID): IUnknown;
var
  Status: HResult;
  FPUControlWord: Word;
begin
  asm
    FNSTCW  FPUControlWord
  end;
  Status := CoCreateInstance(ClassID, nil, CLSCTX_INPROC_SERVER or
    CLSCTX_LOCAL_SERVER, IUnknown, Result);
  asm
    FNCLEX
    FLDCW FPUControlWord
  end;
  if (Status = REGDB_E_CLASSNOTREG) then
    raise Exception.CreateRes(@SADOCreateError) else
    OleCheck(Status);
end;

以某种方式（因为TComponentFactory或许？）CoCreateInstance确定TWorker是在相同的上下文中TServerConn2并且不引发错误？

以下任一或全部可能适用：

1. 在未使用 COM 初始化的线程上，所有现有接口指针都会继续工作，直到您进行 COM API 调用或需要 COM 编组，而 COM 编组随后无法检测到未初始化的线程。也就是说，你说“没有给我带来任何麻烦”实际上可能还为时过早。

2. 如果进程中的任何线程使用 COINIT_MULTITHREADED 标志调用 CoInitialize[Ex]，则不仅将当前线程初始化为多线程单元的成员，而且还表示“任何从未调用过 CoInitialize[Ex] 的线程也是多线程公寓的一部分。” http://blogs.msdn.com/b/oldnewthing/archive/2013/04/19/10412399.aspx- 所谓的隐式 MTA 事物