From 9822ff30cff3a75cce822086d1160b98f7b14515 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sat, 21 Nov 2020 20:17:07 +0000
Subject: [PATCH] * 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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/winunits-base/src/comobj.pp b/packages/winunits-base/src/comobj.pp
index a8309e1b87..3ea17f20a3 100644
--- a/packages/winunits-base/src/comobj.pp
+++ b/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;