Url reduzida:

procedure TForm3.Button1Click(Sender: TObject);
var
  valores: array[1..5] of Integer;
  tamanho: Integer;
begin
  // vamos obter o tamanho da matriz
  tamanho := Length(valores);

  // vamos exibir o resultado
  ShowMessage('A matriz contém ' + IntToStr(tamanho) +
    ' elementos.');
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  valores: array of Integer; // uma matriz aberta (open array)
  tamanho: Integer;
begin
  // vamos obter o tamanho da matriz
  tamanho := Length(valores);

  // vamos exibir o resultado
  ShowMessage('A matriz contém ' + IntToStr(tamanho) +
    ' elementos.');
end;