var
  i : Integer;
  Source : array[0..4] of Integer;

begin
  // Создание исходного массива с значениями элементов 0..4 для элементов 0..4
  for i := 0 to 4 do
    Source[i] := i;

  // Использование команды Slice, чтобы передать только первые 3 элемента
  // Source как открытый массив в процедуру ShowSlice.
  ShowSlice(Slice(Source, 3));
end;

// Показ массива неизвестного размера - он передан как 'Открытый' массив
procedure TForm1.ShowSlice(SubArray : array of Integer);
var
  i : Integer;

begin
  // Показ каждого элемента этого массива
  for i := 0 to Length(SubArray)-1 do
    ShowMessage('SubArray['+IntToStr(i)+'] : '+ IntToStr(SubArray[i]));
end;