SetLength(byteArr, 16);
byteArr[0] := $8B;
byteArr[1] := $71;
byteArr[2] := $10;
byteArr[3] := $0F;
byteArr[4] := $85;
byteArr[5] := $6A;
byteArr[6] := $9D;
byteArr[7] := $FD;
byteArr[8] := $FF;
byteArr[9] := $83;
byteArr[10] := $7E;
byteArr[11] := $0C;
byteArr[12] := $00;
byteArr[13] := $0F;
byteArr[14] := $85;
byteArr[15] := $60;

Take ir Better

const
ByteArr : Array[1..15] of byte = ($8B,$71,$10,$0F, $85, $6A,$9D,$FD, $FF, $83, $7E,$0C,$00, $0F,$85 , $60);

pokeX(address,ByteArr);