проверка динамического масива

[Лубышев]

ребята, у меня проблема.
есть динимаческий двумерный масив и я его хочу проверить в цикле.
но возникает ошибка. не могу разобраться почему. (если массив не динамический проблема пропадает.

вот код программы:

unit Mein;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TFM = class(TForm)
    tim_paint: TTimer; //таймер прорисовки
    procedure FormCreate(Sender: TObject);
    procedure tim_paintTimer(Sender: TObject);
  private

  public

  end;

Type element=record //минимальный элемент
  prohod:integer;//проходимость
  image:integer;//текстура
end;

Type Pole=array of array of element;//тип данных игровое поле

const
  e_width=30;  //ширина элементов
  e_height=30; //высота элементов
  p_col_x=20;  //размерность поля в ширину
  p_col_y=15;  //размерность поля в высоту

var
  FM: TFM;
  Matrix:Pole; //основное поле игры
implementation

{$R *.dfm}

//процедура инициализации игрового поля (передается поле и его размерность)
procedure Pole_ini(Matrix:Pole; col_x:integer; col_y:integer);
var i,j:integer;
begin
  setlength(Matrix,col_x);//размерность по x
  for i:=0 to col_x-1 do setlength(Matrix[i],col_y);//размерность по y
  //изначальная инициализация всех элементов
  for i:=0 to col_x-1 do
  for j:=0 to col_y-1 do
  begin
    Matrix[i,j].prohod:=0;
    Matrix[i,j].image:=0;
  end;
end;


procedure TFM.FormCreate(Sender: TObject);
begin
  //установка параметров формы
  Left:=0;
  Top:=0;
  Width:=Screen.Width;
  Height:=Screen.Height;

  Pole_ini(Matrix,p_col_x,p_col_y);//инициализация игрового поля
end;

procedure TFM.tim_paintTimer(Sender: TObject);
var  i,j:integer;
holst:Tbitmap;
begin
  holst:=Tbitmap.Create;
  holst.Width:=Screen.Width;
  holst.Height:=Screen.Height;
  for i:=0 to p_col_x-1 do
  for j:=0 to p_col_y-1 do
  begin

  // не хочет проходить проверка
    if Matrix[i,j].prohod=0 then holst.Canvas.Brush.Color:=clRed;

    holst.Canvas.Brush.Color:=clRed;
    holst.Canvas.Rectangle(i*e_width,j*e_height,i*e_width+e_width,j*e_height+e_height);
  end;
  FM.Canvas.Draw(0,0,holst);
  holst.Destroy;
end;

end.

весь код программы вот:

[_Dmitry]

procedure Pole_ini(var Matrix:Pole; col_x:integer; col_y:integer);

[Лубышев]

О. блин вот я идиот то. Спасибо. А то думал в чем же косяк...

[Somebody]

Кстати

setlength(Matrix,col_x);//размерность по x
for i:=0 to col_x-1 do setlength(Matrix[i],col_y);//размерность по y

=

setlength(Matrix,col_x,col_y);

Это тоже будет массив массивов (не непрерывный), просто другая запись.