Author: pyscripter

PythonForDelphi/Components/Sources/Core/Definition.Inc

@@ -284,5 +284,7 @@
   {$IFDEF CPU64}
     {$DEFINE CPUX64}
   {$ENDIF CPU64}
-  {$DEFINE USESYSTEMDISPINVOKE}
+  {$IF DEFINED(FPC_VER) and (FPC_VER > 5)}
+    {$DEFINE USESYSTEMDISPINVOKE}
+  {$IFEND}
 {$ENDIF FPC}