在Delphi中，可以使用CopyMemory函数来复制数组数据。CopyMemory函数属于Windows API函数，需要在程序中引入Windows单元才能使用。

以下是一个示例代码，演示如何使用CopyMemory函数来复制数组数据：

usesWindows;procedure CopyArrayData(const sourceArray: array of Byte; var destArray: array of Byte);beginif Length(sourceArray) <> Length(destArray) thenExit;CopyMemory(@destArray[0], @sourceArray[0], Length(sourceArray));end;varsourceArray: array[0..4] of Byte = (1, 2, 3, 4, 5);destArray: array[0..4] of Byte;beginCopyArrayData(sourceArray, destArray);// 输出目标数组数据for i := Low(destArray) to High(destArray) doWriteLn(destArray[i]);end.

在上面的示例中，我们定义了一个CopyArrayData过程来复制数组数据。首先检查源数组和目标数组的长度是否相同，然后使用CopyMemory函数将源数组的数据复制到目标数组中。最后，我们通过循环输出目标数组的数据。