Avoid MSDOS Memory Control Block (MCB) chain corruption in RegisterTinyHeapBlock

git-svn-id: trunk@36340 -

rtl/inc/tinyheap.inc

@@ -577,7 +577,7 @@
                         p:=FreeList;
                         while p^.Next<>HeapPtr do
                           p:=p^.Next;
-                        PTinyHeapBlock(HeapPtr)^.Next:=AAddress;
+                        PTinyHeapBlock(p)^.Next:=AAddress;
                       end;
                   end
                 else