DELPHI10 关于 array of AnsiChar 和 String的赋值

var
szTip: array [0..127] of AnsiChar;
str : String;
begin
str:=fm.Name;
szTip := str;
//这个编译不通过，应该如何
end;

通过字符串函数，把字符串转换为数组。