delphi11中动态数组赋值出错

[W13726101612]

请教哪位老师帮忙看看在这个里面strcopy总是出错，是还有什么没有注意到吗？   
function TF_main.DF_Copy_fromfile(PText:pchar;scontent:widestring):integer;
  var
      PText_s : array of Char;
      PText_l:integer; 
      PText_d:integer;
   begin

setlength(PText_s,length(PText) );
fillchar(PText_s, length(PText_s),#0);
StrCopy(@PText_s, PText); //在这地方一直提示写地址错误
PText_d:=integer(@PText_s);
PathText_l:=length(pchar(@Text_s));
showmessage(inttostr(ptext_d));
end;

[W13726101612]

不知其中是什么原因，给定PText的值为“ABCDEFGHIJ” “ABCDEFGHI”这种字符数时运行完成后也不报错，如果再多字符，还没有运行就报错

[p47655255]

fillchar(PText_s, length(PText_s),#0); 这一句去掉，没用 而且是错的

StrCopy(@PText_s[0], PText);//修改一下