TMyRec=Record
A:Char;
B:Byte;
end;

SizeOf(TMyRec) 是4，就是为了对齐。

TMyRec=packed Record
A:Char;
B:Byte;
end;

SizeOf(TMyRec) 就是2。