procedure TForm1.Button1Click(Sender: TObject);
type
data = array of Integer;
var
parrdata: data;
index: Integer;
base, base1: Integer;
begin
SetLength(parrdata, 1);
parrdata[0]:= 33;
n:= parrdata[0];
base:= Integer(@parrdata);
index:= Length(parrdata);
SetLength(parrdata, index + 1); // 这里 难道 内存 不重新分配吗 怎么理解
parrdata[1]:= 55;
base1:= Integer(@parrdata);
if base <> base1 then ShowMessage('no');
ShowMessage(IntToStr(parrdata[0])+
#13#
10+inttostr(parrdata[1]));
end;

小块内存也许分配了不止4字节

内存是会重新分配的，你的parrdata这个变量它自身的地址是不会变化的。

如果我没记错，Delphi的动态内存分配是按照2的次方来的，从4倍开始，不够了再八倍，还不够了再十六倍这样。

windows的内存分页机制一次是分配4096个字节，你一次只用了1字节，没必要给你多分配一个页，只会在那个页的基础上给你多划1字节。