Wie ermittelt man die Grenzen mehrdimensionaler Arrays?

[taaktaak]

Oder anders ausgedrückt:
Es wird immer die Obergrenze des nächstfolgenden Sub-Arrays ermittelt.

Delphi-Quellcode:

var a : Array [1..10,1..100,1..1000] of integer;

procedure TfoTest19.FormShow(Sender:TObject);
begin
  listbox1.Items.add(inttostr(high(a)     ));
  listbox1.Items.add(inttostr(high(a[1])  ));
  listbox1.Items.add(inttostr(high(a[1,1])));
end;