procedure TForm2.Button1Click(Sender: TObject);
var
  memFIlesour: TMemoryStream;
  bb: array of Byte;
begin
  memFIlesour := TMemoryStream.Create;
  memFIlesour.LoadFromFile(Edit1.Text);

  ShowMessage(IntToStr(memFIlesour.Size));
  SetLength(bb, 4);
  memFIlesour.Read(bb, 4);       //为什么出错，地址错误，而改为2就好了。还有，如果用静态数组，也是4个长度就不会出错，用动态的要多出2个字节就不出错。
end;

memFIlesour.Read(bb[0], 4);