* function types need to be stdcall, reported by 440bx on forum.

(cherry picked from commit 317a0637469e923a3c77d1e70ba60bb824a796cd)

packages/winunits-base/src/activex.pp

@@ -4404,8 +4404,8 @@ type
   type
      LPOLESTREAM = ^_OLESTREAM;
      _OLESTREAMVTBL = record
-       Get : function (p : POleStr;out o;dw : DWORD) : DWORD;
-       Put : function (p : POleStr;const o;dw : DWORD) : DWORD;
+       Get : function (p : POleStr;out o;dw : DWORD) : DWORD; stdcall;
+       Put : function (p : POleStr;const o;dw : DWORD) : DWORD; stdcall;
      end;
      OLESTREAMVTBL =  _OLESTREAMVTBL;