problem z tablicami dynamicznymi

Dlaczego to nie działa:

type
       tform1 = class(tform)
       {...}
       public
            karty: array of array of integer;

{...}

procedure tform1.x;
var
      x, y: integer;
begin

setlength(karty, 3, 5);

for x:= 0 to 3 do
  begin
    for y:= 0 to 5 do
    begin
      Randomize;
      karty[x][y]:= Random(24) + 1;
    end;
  end;

end;

wywala to blad pamieci przy wywolywaniu procedury

for x:= 0 to 2 do
   begin
      for y:= 0 to 4 do

to akurat byl szczegol, ale dzieki - glupi blad
sorki za glupote naszego teamu ;p