Array Of Array Of Array Of Char Опции

[arhimag]

Помогите, мне нужны парочка процедур, использующих стандартные дингамические массивы мне нужен трехмерный массив. и процедуры
1 Очищает весь массив и задает его размеры как кубика: Х:У:Z подается нап вход процедуры и сам массив
2. вывоит элемент из этого массива с координатами XYZ
3. Меня ет значение
снизу не получившиеся попытка.

[hardcase]

кроме того, 100 кнопок в дизайне создавать - это мрак. вот код, который добавляет 100 кнопок в рантайме:

type
  Tform1 = class(Tform)
    private
      button: array[1..10,1..10] of TButton;
    public
      procedure InitButtons(dLeft, dTop: integer);
  end;
...
procedure TForm1.InitButtons(dLeft, dTop: integer);
  const BUTTON_SIZE = 25;
        DELTA = BUTTON_SIZE + 3;
  var i,j: integer;
      l,t: integer;
  begin
    l:=dLeft;
    for i:=1 to 10 do begin
        t:=dTop;
        for j:=1 to 10 do begin
            button[i,j]:=TButton.Create(Self);
            with button[i,j] do begin
                Left:=l;
                Top:=t;
                Width:=BUTTON_SIZE;
                Height:=BUTTON_SIZE;
                Caption:='';
                Tag:=(word(i) shr 32) or j; // в верхнее слово пишем i, в нижнее - j
                Parent:=Self;
                //OnClick:=тыры-пыры
            end;
            inc(t,DELTA);
        end;
        inc(l,DELTA);
    end;
  end;