Problem mit BITMAPINFO bezüglich des ColorTables

[McDaTob]

Sorry,
aber ich bekomme zur Laufzeit immer eine Fehlermeldung.
Wie kann ich den Speicher denn reservieren?
Hab es mal so probiert:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  x : array [0..0] of integer;
  p : pointer;
  i : integer;
begin
{$RANGECHECKS OFF}
  p := Addr(x);
  GetMem(p,5 * SizeOf(integer));
  for i := 0 to 4 do
  begin
    x[i] := i;
  end;
{$RANGECHECKS ON}
end;