you can use this workaround:
- replace
uROComInit
withuROInitializedThread
in .dpr. - add
uROInitializedThread.ROInitializeThreads := True;
like
uses
uROInitializedThread,
...
{$R *.res}
begin
uROInitializedThread.ROInitializeThreads := True;
Application.Initialize;
...