program MyArray; //数组
{$APPTYPE CONSOLE}
uses
  SysUtils,Windows;

{合并2个动态数组}
procedure MyFunc2();
var
  arr1,arr2: TBytes;
  len,LastAddr: Integer;
begin
{设置2个数组长度}
  SetLength(arr1, 3);
  SetLength(arr2, 3);
{给2个数组赋值}
  arr1[0] := 65; arr1[1] := 66; arr1[2] := 67;
  arr2[0] := 68; arr2[1] := 69; arr2[2] := 70;
{设置数组1的长度为2个数组长度之和}
  len := Length(arr1);//保存数组1长度
  SetLength(arr1, len + Length(arr2));
{把数组2复制到数组1后面}
  LastAddr := DWORD(arr1)+len;//数组1末尾的指针
  CopyMemory(Ptr(LastAddr), arr2, Length(arr2));//把数组2复制到数组1后面
  Writeln(StringOf(arr1)); {ABCDEF}
end;

{main主函数}
begin
 MyFunc2;
 Readln;
end.