ReallocMem 过程的功能是重新分配指定大小内存块。其函数的原型定义如下：
procedure ReallocMem(var P: Pointer; Size: Integer);
可以使用 FreeMem 来释放所申请的内存块。
