ERRO 201 E PROBLEMAS DE ARRAY DINÂMICOS

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  // Define do array dinâmico;
  MultiArray : Array of Array of byte;
  I, J : Integer;
begin
  // Define o tamanho do array principal;
  SetLength(MultiArray, 3);

  // Define o tamanho dos 3 sub-arrays;
  SetLength(MultiArray[0], 1);
  SetLength(MultiArray[1], 2);
  SetLength(MultiArray[2], 3);

  // Define e mostra o tamanho de todos os elementos dentro do array principal;
  for I := 0 to High(MultiArray) do
    for J := 0 to High(MultiArray[I]) do
    begin
      MultiArray[I, J] := I + J;
      ShowMessage('MultiArray[' + IntToStr(I) + ', ' + IntToStr(J) + '] = ' + IntToStr(MultiArray[I, J]));
    end;
end;

end.