字符串赋值到数组 出问题

Question

procedure SetMenuFontSize;
var
ncm: TNonClientMetrics;
sFont:string;
aFont:array[0..31]of AnsiChar;
begin
aFont:= 'UKIJ Tuz Tom';
 StrCopy(aFont,PChar(sFont));
ncm.lfMessageFont.lfFaceName:= aFont;
ncm.lfMenuFont.lfFaceName:= aFont;
。
。
。
end;
在这里 为了 给 ncm.lfMessageFont.lfFaceName 赋值 我通过字符串变量保孙的值来实现。 可是把字符串赋值到数组时出了问题。 说是9，10行 不合适的赋值。
大家看看是什么原因！ 谢谢

Answer 1

var 
ncm: TNonClientMetrics;
sFont:string;
aFont:array[0..31]of AnsiChar;
begin
aFont:= 'UKIJ Tuz Tom';
StrCopy(aFont,PChar(sFont));
Move(afont,ncm.lfMessageFont.lfFaceName,SizeOf(aFont));
Move(afont,ncm.lfMenuFont.lfFaceName,SizeOf(aFont));
end;

Answer 2

http://blog.csdn.net/liangpei2008/archive/2009/04/25/4121820.aspx