Delphi的字节对齐和简单string结构

procedure TForm1.Button1Click(Sender: TObject);
type
TTest = record
sAccount: string[31]; // 如果不加Packed 30和31是相同的大小 虽然是相同的，如果网络编程，传递后转换，Delphi是识别不出来的，会出现越界问题。
sChrName: string[15];
sUserAddr: string[15];
nSessionID: Integer;
end;
var
LLh: TTest;
begin
LLh.sAccount := '1234';
ShowMessage(Format('%d, %d, %x', [SizeOf(LLh), Integer((PChar(@LLh))^), Integer(LLh.sAccount[1])])); // 48, 4
// sAccount: string[12] 字节 13 ， sAccount[1]前一个字节是长度
end;