* a AnsiString var parameter is supposed to be dispatched in tagVariant.pbstrVal which is a PWideString, so pass a reference to the ComStr field instead of a copy

git-svn-id: trunk@47517 -

packages/winunits-base/src/comobj.pp

@@ -1231,7 +1231,7 @@ HKCR
                         StringMap[NextString].ComStr:=StringToOleStr(PString(Params^)^);
                         StringMap[NextString].PasStr:=PString(Params^);
                         Arguments[i].VType:=varOleStr or varByRef;
-                        Arguments[i].VPointer:=StringMap[NextString].ComStr;
+                        Arguments[i].VPointer:=@StringMap[NextString].ComStr;
                         inc(NextString);
                         inc(PPointer(Params));
                       end;