Typecasting Stacküberlauf <code inside>

[Cyberstorm]

hallo. habe ich da etwas nicht verstanden? anscheinend...
wieso funktioniert button1 und bei button2 gibt es einen stacküberlauf?
müssten doch beides 4-byte im speicher sein?!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TRGBQuad;
  b: Cardinal;
begin
  a.rgbBlue:=0;
  a.rgbGreen:=0;
  a.rgbRed:=255;
  a.rgbReserved:=0;
  b:=Cardinal(a);
  ShowMessage(IntToStr(b));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  a: TRGBQuad;
  b: array[1..640, 1..480] of Cardinal;
begin
  a.rgbBlue:=0;
  a.rgbGreen:=0;
  a.rgbRed:=255;
  a.rgbReserved:=0;
  b[1, 1]:=Cardinal(a);
  ShowMessage(IntToStr(b[1, 1]));
end;

danke + grüße