diff --git a/lcl/interfaces/win32/win32object.inc b/lcl/interfaces/win32/win32object.inc
index 03beccbde6..a662669ae3 100644
--- a/lcl/interfaces/win32/win32object.inc
+++ b/lcl/interfaces/win32/win32object.inc
@@ -117,7 +117,7 @@ begin
     Exit;
   end;
 
-  CoInitializeEx(nil, COINIT_MULTITHREADED);
+  OleInitialize(nil);
   //TODO: Remove when the WS interface is implemented
   //      Common controls only need to be initialized when used
   //      So they are initialized in the CreateHandle for common controls
@@ -427,7 +427,7 @@ end;
 procedure TWin32WidgetSet.AppTerminate;
 begin
   Assert(False, 'Trace:TWin32WidgetSet.AppTerminate - Start');
-  CoUninitialize;
+  OleUninitialize;
 end;
 
 procedure TWin32WidgetSet.AppSetIcon(const Small, Big: HICON);