kleines Programm - riesiger Prozess

[Luckie]

So:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
type
  PDickesDingen = ^TDickesDingen;
  TDickesDingen = array[0..High(Integer) - 1] of Byte;
var
  Foo: PDickesDingen;
begin
  new(Foo);
end;

Bekomme ich eine OutOfMemory Exception.