program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var

 bts     : TBytes;
 old     : NativeInt;
 oldSize : NativeInt;
 i       : Integer;
 r       : Integer;

 bts2 : TBytes;
 bts3 : TBytes;
 bts4 : TBytes;
 bts5 : TBytes;

begin

 r := 0;
 old := 0;
 oldSize := 0;

 for i := 1 to 1024 * 1024 do
  begin

   SetLength(bts, i);
   // чтобы MM жизнь мёдом не казалась...
   SetLength(bts2, i);
   SetLength(bts3, i);
   SetLength(bts4, i);
   SetLength(bts5, i);

   If old <> NativeInt(bts) Then
    begin

     inc(r);

     writeLn(i, ' -> ', i - OldSize);

     old := NativeInt(bts);
     oldSize := i;

    end;

  end;

 WriteLn('reallocations: ', r);
 ReadLn;

end.