สำเนาอาร์เรย์ Delphi ที่แยกจากกัน

function ChangedCopy(const Values: TArray<Integer>;
  Next: Integer): TArray<Integer>;
begin
  Result := System.Copy(Values, 0, Length(Values));
  if Length(Result) > 0 then
    Result[0] := Next;
end;