哪儿有关于内存检测的源代码？

是不是这个哦

unit ShenNewMemMgr;

interface

var
GetMemCount: Integer = 0;
FreeMemCount: Integer = 0;
ReallocMemCount: Integer = 0;

mmPopupMsgDlg: Boolean = True;
mmShowObjectInfo: Boolean = True;
mmSaveToLogFile: Boolean = True;
mmErrLogFile: string = '';

procedure SnapToFile(Filename: string);

implementation

uses
Windows,
SysUtils,
TypInfo;

const
MaxCount = High(Word);

var
OldMemMgr: TMemoryManager;
ObjList: array[0..MaxCount] of Pointer;
FreeInList: Integer = 0;

procedure AddToList(P: Pointer);
begin
if FreeInList