EInvalidPointer

[Манжосов Денис :)]

unit ModuleWinterWar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;
type
  TMapObjects = array of byte;
  TMap = array of array of byte;
  {============================}
  TGameForm = class(TForm)
    MainMenu: TMainMenu;
    n_File: TMenuItem;
    n_Open: TMenuItem;
    n_New: TMenuItem;
    n_Save: TMenuItem;
    n_Close: TMenuItem;
  procedure FormCreate(Sender: TObject);
  procedure FormPaint(Sender: TObject);
  procedure n_CloseClick(Sender: TObject);
   private
   Procedure MainFormCreate;
   Procedure MapCreate;
   Procedure ObjectsCreate;
  end;
const
  MaxObj = 04;
    MapX = 16;
    MapY = 16;
var
  GameForm: TGameForm;
    MapObj: TMapObjects;
     MyMap: TMap;
       Map: TBitmap;
implementation

{$R *.dfm}
procedure TGameForm.MainFormCreate;
begin
  BorderIcons:=[];
  BorderStyle:=bsSingle;
  Caption:='Ðåäàêòîð êàðò';
  Color:=clCream;
end;

procedure TGameForm.MapCreate;
begin
  Map:=TBitmap.Create;
  with Map do begin
   Width:=256;
   Height:=256;
   Canvas.Brush.Color:=clWhite;
  end;
  {********************}
  SetLength(MyMap, MapX,MapY);
end;

procedure TGameForm.FormCreate(Sender: TObject);
begin
  MainFormCreate;
  MapCreate;
  ObjectsCreate;
end;

procedure TGameForm.FormPaint(Sender: TObject);
begin
  GameForm.Canvas.Draw(0, 0, Map);
end;


procedure TGameForm.ObjectsCreate;
var i: byte;
    k: byte;
begin
  Setlength(MapObj, MaxObj);
  for i:=0 to MaxObj do
   for k:=1 to MaxObj+1 do
    MapObj[i]:=k;
end;

procedure TGameForm.n_CloseClick(Sender: TObject);
begin
  Close();
end;

end.

При выключении появляется ошибка EInvalid Pointer Operation.
В справке посмотрел описание, так и не понял в чём ошибка в коде. как избавиться от ошибки?

[Levsha100]

А память Вы чистите?

Map:=TBitmap.Create;

procedure TForm1.Button1Click(Sender: TObject);
var
image : TBitmap;
begin
 Image := TBitmap.Create;
 //*********************
 //Form1.ImageList.GetBitmap(1,Image);
 //*********************
 Image.Free;
end;

P.S. откомпилировал, ошибку не выдает