AnsiString类型的变量如何赋值给array of byte类型

AnsiString类型的变量怎么赋值给array of byte类型
如题,请给出具体代码。谢谢
------解决方案--------------------
procedure f(const s:ansistring; var a:array of byte)
var i:integer;
begin
i:=length(s); setlength(a,i); move(s[1],a[0],i);
end;