diff --git a/packages/fcl-extra/src/win/daemonapp.inc b/packages/fcl-extra/src/win/daemonapp.inc
index afec569ce1..35d4874a6c 100644
--- a/packages/fcl-extra/src/win/daemonapp.inc
+++ b/packages/fcl-extra/src/win/daemonapp.inc
@@ -385,7 +385,7 @@ Var
   RV : Integer;
   
 begin
-  GetMem(P,SizeOf(TServiceTableEntry)*FMapper.DaemonDefs.Count+1);
+  GetMem(P,SizeOf(TServiceTableEntry)*(FMapper.DaemonDefs.Count+1));
   Try
     C:=FMapper.DaemonDefs.Count;
     For I:=0 to C-1 do