работа с памятью

var
var
  GetMemCount     : Integer;
  FreeMemCount    : Integer;
  ReallocMemCount : Integer;
  OldMemMgr       : TMemoryManager;
 
{$R *.dfm}
 
 
function NewGetMem(Size: Integer): Pointer;
begin
  Inc(GetMemCount);
  Result := OldMemMgr.GetMem(Size);
end;
 
function NewFreeMem(P: Pointer): Integer;
begin
  Inc(FreeMemCount);
  Result := OldMemMgr.FreeMem(P);
end;
 
function NewReallocMem(P: Pointer; Size: Integer): Pointer;
begin
  Inc(ReallocMemCount);
  Result := OldMemMgr.ReallocMem(P, Size);
end;
 
//новый менеджер
const
  NewMemMgr: TMemoryManager = (
                            GetMem    : NewGetMem;
                            FreeMem   : NewFreeMem;
                            ReallocMem: NewReallocMem);
//запоминаем старый менеджер/устанавливаем новый
procedure SetNewMemMgr;
begin
  GetMemoryManager(OldMemMgr);
  SetMemoryManager(NewMemMgr);
end;

var
  i : Integer;
  x, y : ^Integer;
begin
 
  SetNewMemMgr();
  // выделяем память и сразу освобождаем
  for i := 0 to 9 do
  begin
    New(x);
    Dispose(x);
    New(y);
    //утечка памяти
    // Dispose(y);
  end;

  Edit1.Text :=  'GetMemCount: ' +IntToStr(GetMemCount);
  Edit2.Text :=  'FreeMemCount: ' + IntToStr(FreeMemCount);
  Edit3.Text :=  'ReallocMemCount: ' + IntToStr(ReallocMemCount);
  SetMemoryManager(OldMemMgr);