uses
  ActiveX;

procedure TYourThread.Execute;
begin
  CoInitializeEx(nil, COINIT_MULTITHREADED);
  try
    <your code here>
  finally
    CoUninitialize;
  end;
end;