diff --git a/rtl/inc/heap.inc b/rtl/inc/heap.inc
index 593ea60945..6fd5c1686b 100644
--- a/rtl/inc/heap.inc
+++ b/rtl/inc/heap.inc
@@ -205,6 +205,10 @@ begin
    end;
 end;
 
+procedure GetMemory(Var p:pointer;Size:Longint);
+begin
+  GetMem(p,size);
+end;
 
 procedure FreeMem(p:pointer;Size:Longint);
 begin
@@ -223,6 +227,10 @@ begin
    end;
 end;
 
+procedure FreeMemory(p:pointer;Size:Longint);
+begin
+  FreeMem(p,size);
+end;
 
 function MaxAvail:Longint;
 begin
@@ -315,6 +323,11 @@ begin
    end;
 end;
 
+function FreeMemory(p:pointer):Longint;
+
+begin
+ FreeMemory:=FreeMem(p);
+end;
 
 function GetMem(size:longint):pointer;
 begin
@@ -333,6 +346,11 @@ begin
    end;
 end;
 
+function GetMemory(size:longint):pointer;
+
+begin
+ GetMemory:=Getmem(size);
+end;
 
 function AllocMem(Size:Longint):pointer;
 begin
@@ -370,6 +388,12 @@ begin
 end;
 
 
+function ReAllocMemory(var p:pointer;Size:Longint):pointer;
+
+begin
+ ReAllocMemory:=ReAllocMem(p,size);
+end;
+
 {$ifdef ValueGetmem}
 
 { Needed for calls from Assembler }
@@ -1265,7 +1289,10 @@ end;
 
 {
   $Log$
-  Revision 1.23  2003-09-28 12:43:48  peter
+  Revision 1.24  2003-10-02 14:03:24  marco
+   * *memORY overloads
+
+  Revision 1.23  2003/09/28 12:43:48  peter
     * fixed wrong check when allocation of a block > 1mb failed
 
   Revision 1.22  2003/09/27 11:52:35  peter
diff --git a/rtl/inc/heaph.inc b/rtl/inc/heaph.inc
index 2a9f20e185..b84e597f28 100644
--- a/rtl/inc/heaph.inc
+++ b/rtl/inc/heaph.inc
@@ -62,7 +62,9 @@ Function  Sysheapsize:longint;
 
 { Tp7 functions }
 Procedure Getmem(Var p:pointer;Size:Longint);
+Procedure Getmemory(Var p:pointer;Size:Longint);
 Procedure Freemem(p:pointer;Size:Longint);
+Procedure Freememory(p:pointer;Size:Longint);
 Function  memavail:Longint;
 Function  maxavail:Longint;
 
@@ -72,9 +74,12 @@ Function  heapsize:longint;
 
 { Delphi functions }
 function GetMem(size:longint):pointer;
+function GetMemory(size:longint):pointer;
 function Freemem(p:pointer):longint;
+function Freememory(p:pointer):longint;
 function AllocMem(Size:Longint):pointer;
 function ReAllocMem(var p:pointer;Size:Longint):pointer;
+function ReAllocMemory(var p:pointer;Size:Longint):pointer;
 
 { Do nothing functions, are only here for tp7 compat }
 Procedure mark(var p : pointer);
@@ -90,7 +95,10 @@ Procedure AsmFreemem(var p:pointer);
 
 {
   $Log$
-  Revision 1.6  2002-10-30 20:39:13  peter
+  Revision 1.7  2003-10-02 14:03:24  marco
+   * *memORY overloads
+
+  Revision 1.6  2002/10/30 20:39:13  peter
     * MemoryManager record has a field NeedLock if the wrapper functions
       need to provide locking for multithreaded programs