请问一个字符串转字节数组的有关问题

请教一个字符串转字节数组的问题
var
byt:array of byte;
str:string;
begin
str = '01234567ff';

怎样把str按照下面的格式赋值

byt[0] = $01;
byt[1] = $23;
byt[2] = $45;
byt[3] = $67;
byt[4] = $ff;

[解决办法]
setlength(byt, length(str) div 2);
HexToBin(pchar(str), @byt[0], length(str) div 2);