Длина многомерного массива

[Johnson]

Здравствуйте, уважаемые!

Есть массив многомерный. К примеру:

Arr:array[0..1,0..1,0..1] of string;

Как изменить его длину в нужном измерении?
К примеру мне нужно динамически сделать его таким:

Arr:array[0..10,0..100,0..30] of string;

[ArtGrek]

на сколько я знаю только таким массивам можно задавать размер

...
var
  Form1: TForm1;
  Arr: array of array of array of string;

implementation
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  SetLength(Arr,100,100,100);
  Arr[99,99,99] := 'OK';
  ShowMessage(Arr[99,99,99]);
end;

[Johnson]

Спасибо огромнейшее!