Пример кода : Копирование строки 
var
  Source, Target : string;

begin
  Source := '12345678';
  Target := Copy(Source, 3, 4);
  ShowMessage('Target : '+Target);
end;

Target : 3456
     
Пример кода : Копирование массива 
var 
  i : Integer;
  Source, Target : array of Integer;

begin
  SetLength(Source, 8);

  for i := 1 to 8 do   // Формирование динамического исходного массива
    Source[i-1] := i;   // Запомните, что массивы начинаются с индекса = 0

  Target := Copy(Source, 3, 4);

  for i := 0 to Length(Target) -1 do   // Показываем созданный массив
    ShowMessage('Target['+IntToStr(i)+'] : '+IntToStr(Target[i]));
end;