delphi的FastMM怎么检查内存？请给我代码例子

FastMM是一个用于Delphi程序的内存管理库，它提供了对内存进行分配、释放、调整大小和检查的功能。

在使用FastMM时，你可以使用以下代码来检查内存：

``` uses FastMM4;

// 检查未被释放的内存块数量 var UnreleasedBlocks: NativeUInt; begin UnreleasedBlocks := FastMM4.GetUnreleasedBlockCount; WriteLn('未被释放的内存块数量: ', UnreleasedBlocks); end;

// 检查当前堆的状态 var HeapStatus: THeapStatus; begin HeapStatus := FastMM4.GetHeapStatus; WriteLn('已分配的内存大小: ', HeapStatus.TotalAllocated); WriteLn('最大可用的内存大小: ', HeapStatus.TotalFree); WriteLn('内存块的数量: ', HeapStatus.TotalAllocatedBlocks); WriteLn('空闲内存块的数量: ', HeapStatus.TotalFreeBlocks); WriteLn('碎片的数量: ', HeapStatus.TotalUnused); WriteLn('最大的连续可用内存块大小: ', HeapStatus.LargestFreeBlock); end;

// 检查指定地址的内存块的信息 var BlockInfo: TMemoryManagerState; begin GetMemoryManagerState(BlockInfo); with BlockI