From 530ca86b693c44fabf49dee2634e697de9bc7851 Mon Sep 17 00:00:00 2001
From: Martijn Laan <martijnlaan@gmail.com>
Date: Tue, 18 Feb 2020 21:15:44 +0100
Subject: [PATCH] Fix IDispatchInvoke on Unicode.

---
 Source/uPSCompiler.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/uPSCompiler.pas b/Source/uPSCompiler.pas
index 4f206c2..1f8b294 100644
--- a/Source/uPSCompiler.pas
+++ b/Source/uPSCompiler.pas
@@ -13264,7 +13264,7 @@ begin
   begin
     ExportName := True;
   end;
-  AddDelphiFunction('function IdispatchInvoke(Self: IDispatch; PropertySet: Boolean; const Name: string; Par: array of Variant): Variant;');
+  AddDelphiFunction('function IdispatchInvoke(Self: IDispatch; PropertySet: Boolean; const Name: AnsiString; Par: array of Variant): Variant;');
  {$ENDIF}
 {$ENDIF}
 end;