max alloc size: 128
1000000 reallocs: 13 ms
1000000 reallocs: 9 ms
1000000 reallocs: 8 ms
1000000 reallocs: 9 ms
1000000 reallocs: 8 ms
max alloc size: 256
1000000 reallocs: 25 ms
1000000 reallocs: 24 ms
1000000 reallocs: 24 ms
1000000 reallocs: 24 ms
1000000 reallocs: 23 ms
max alloc size: 512
1000000 reallocs: 33 ms
1000000 reallocs: 32 ms
1000000 reallocs: 32 ms
1000000 reallocs: 32 ms
1000000 reallocs: 33 ms
max alloc size: 1024
1000000 reallocs: 44 ms
1000000 reallocs: 43 ms
1000000 reallocs: 42 ms
1000000 reallocs: 42 ms
1000000 reallocs: 45 ms
max alloc size: 2048
1000000 reallocs: 67 ms
1000000 reallocs: 68 ms
1000000 reallocs: 66 ms
1000000 reallocs: 65 ms
1000000 reallocs: 66 ms
max alloc size: 4096
1000000 reallocs: 118 ms
1000000 reallocs: 119 ms
1000000 reallocs: 117 ms
1000000 reallocs: 118 ms
1000000 reallocs: 116 ms
max alloc size: 8192
1000000 reallocs: 253 ms
1000000 reallocs: 253 ms
1000000 reallocs: 255 ms
1000000 reallocs: 252 ms
1000000 reallocs: 252 ms
max alloc size: 16384
1000000 reallocs: 472 ms
1000000 reallocs: 470 ms
1000000 reallocs: 474 ms
1000000 reallocs: 469 ms
1000000 reallocs: 472 ms
max alloc size: 32768
1000000 reallocs: 845 ms
1000000 reallocs: 845 ms
1000000 reallocs: 845 ms
1000000 reallocs: 851 ms
1000000 reallocs: 845 ms
max alloc size: 65536
1000000 reallocs: 1578 ms
1000000 reallocs: 1570 ms
1000000 reallocs: 1572 ms
1000000 reallocs: 1567 ms
1000000 reallocs: 1572 ms
max alloc size: 131072
1000000 reallocs: 2976 ms
1000000 reallocs: 2968 ms
1000000 reallocs: 2958 ms
1000000 reallocs: 2961 ms
1000000 reallocs: 2960 ms

program Project4;

{$APPTYPE CONSOLE}

uses
  System.SysUtils, Diagnostics;

var
  // будем переаллоцировать этот буфер из 1000 записей N раз (при N = 1000 получается 1 миллион переаллокаций),
  // с увеличивающимися MaxAllocSize(начиная с MaxAllocSize = 128 байт)
  Recs: array[0..1000-1] of Pointer; //

procedure ReallocRecs(MaxAllocSize: Integer);
var
  I: Integer;
begin
  for I := 0 to High(Recs) do
  begin
    Recs[I] := ReallocMemory(Recs[I], 20 + Random(MaxAllocSize-20));
  end;
end;

procedure ReallocNTimes(N: Integer; MaxAllocSize: Integer);
var
  I: Integer;
begin
  for I := 1 to N do
    ReallocRecs(MaxAllocSize);
end;

var
  I: Integer;
  SW: TStopWatch;
  N: Integer;
  MaxAllocSize: Integer;
begin
  Randomize;
  MaxAllocSize := 128;
  // first fill
  for I := 0 to High(Recs) do
    Recs[I] := GetMemory(20 + Random(MaxAllocSize-20));

  N := 1000;
  while True do
  begin
    Writeln(Format('max alloc size: %d', [MaxAllocSize]));
    for I := 1 to 5 do
    begin
      SW := TStopWatch.StartNew;
      ReallocNTimes(N, MaxAllocSize);
      Writeln(Format('%d reallocs: %d ms', [Length(Recs) * N, SW.ElapsedMilliseconds]));
    end;
    MaxAllocSize := MaxAllocSize * 2;
    if MaxAllocSize > 128 * 1024 then
      Break;
  end;
  Readln;
end.