* free the old block in win16 global heap reallocmem

git-svn-id: trunk@37639 -

rtl/win16/glbheap.inc

@@ -372,6 +372,7 @@ circular linked list.
               { todo: do it in a more optimal way? }
               result:=SysGlobalAllocMem(size);
               Move(p^,result^,SysGlobalMemSize(p));
+              SysGlobalFreeMem(p);
             end;
         p := result;
       end;