delphi 类成员信息地址分析

 //定义MyClass
TMyClass = class
GUID: string;
Name: string;
bSex: Boolean;
Tel : string;
end;
//取值
var
obj: TMyClass;
begin
obj := TMyClass.Create;
with Memo1.Lines do
begin
Add('对象大小:' + IntToStr(obj.InstanceSize));
Add('对象所在地址：'+ IntToStr(Integer(obj)));
Add('GUID所在地址：'+ IntToStr(Integer(@obj.GUID)));
Add('Name所在地址：'+ IntToStr(Integer(@obj.Name)));
Add('bSex所在地址：'+ IntToStr(Integer(@obj.bSex)));
Add('Tel所在地址：'+ IntToStr(Integer(@obj.Tel)));
end;
obj.Free;
end;

结果：
两个版本的Delphi对象大小以及分配的起始地址不同