diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index 17da5f1361..f7687df18d 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -1163,7 +1163,7 @@ var
 
 begin
   if (List=nil) or (List.Count<=1) then exit;
-  MergeList:=AllocMem(List.Count*SizeOf(Pointer));
+  MergeList:=GetMem(List.Count*SizeOf(Pointer));
   Sort(0,List.Count-1);
   Freemem(MergeList);
 end;
@@ -1231,7 +1231,7 @@ var
 begin
   if (List=nil) or (List.Count<=1) then exit;
   CurSize:=PtrInt(List.Count)*SizeOf(Pointer);
-  MergeList:=AllocMem(CurSize);
+  MergeList:=GetMem(CurSize);
   FillChar(MergeList^,CurSize,0);
   Sort(0,List.Count-1);
   for i:=0 to List.Count-1 do MergeList[i]:='';