方法:
      var
         A:array of Integer;
      begin
           ShowMessage(IntToStr(High(A))); //<- 值为1
           SetLenght(A,3);
           ShowMessage(IntToStr(High(A))); //<- 值为3
      end;
  注:这是DELPHI4.0新添的功能.