delphi – MemoryStream并构造一个字节数组

我正在使用MemoryStream来构造我需要发送到服务器的字节数组.我有以下问题：

1)有没有比这更好的方法来构造一个字节数组？

2)为什么这些代码会在我的内存流中写出伪造的？

var
  serial : word;
  MS : TMemoryStream;
const
  somebytes : array [0..1] of byte = ($72,$72);
...
begin
      MS := TMemoryStream.Create();
      try
      Ms.Write(somebytes[0],2);
      serial := $3E6c;
      Ms.Write(serial,2);
      finally
      Ms.Free;
end;

使用调试器,我看到在流中添加了值$6F32而不是$3E6C.

3)如果我打电话

@H_430_6@ms.Position := 2;

然后我访问PByte(Ms.Memory)^为什么我得到流中的第一个字节而不是第三个字节？