1 files changed, 3 insertions, 3 deletions
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc
index 87a56d34c9..2eb70b9478 100644
--- a/include/delphi/m_helpers.inc
+++ b/include/delphi/m_helpers.inc
@@ -400,15 +400,15 @@ end;
 
 function CreateProtoServiceFunction(const szModule, szService: PAnsiChar; serviceProc: TMIRANDASERVICE): int_ptr;
 var
-  szStr: array[0..MAXMODULELABELLENGTH*2] of AnsiChar;
+  szStr: array [0..MAXMODULELABELLENGTH*2] of AnsiChar;
 begin
   if (szModule=nil) or (szService=nil) then
   begin
     result:=0;
     exit;
   end;
-  lstrcpya(szStr, szModule);
-  lstrcata(szStr, szService);
+  lstrcpya(@szStr, szModule);
+  lstrcata(@szStr, szService);
   Result := CreateServiceFunction(szStr, @serviceProc);
 end;