procedure TForm1.Button1Click(Sender: TObject);
// Declarando o array
var
  Vetor : Array of Integer;
begin
  // Utilizando o array
 
  // Determinando o tamanho do array.
  SetLength(Vetor, 5); 
 
  // Preenchendo o array
  for I := 0 to High(Vetor) do
    vetor[I] := I *2
 
  // Modificando o tamanho
  SetLength(Vetor,10)
 
  // Preenchendo o array novamente
  for I := 0 to High(Vetor) do
    vetor[I] := I *2
end;

 
  { determina o número de elementos do array. 
   Tendo em vista que o valor default para o primeiro elemento é 0 (zero). }
  SetLength(Array,Tamanho);
 
  { Retorna a posição do último índice do array. 
  Exemplo: se o array tem tamanho 10 e começa em 0 o resultado seria 9. }
  High(Vetor);// : Integer
 
  { Retorna a posição do primeiro índice do array.
  No caso, sempre zero. }
  Low(Vetor);// : Integer 
 
  { Retorna o tamanho exato do array ou seja, 
  o valor que foi definido na função SetLength. }
  Length(Vetor);