请教一下关于delphi函数move用法？

Question

var
s:String;
ps:pChar;
begin
s := '123456789';
ps := StrAlloc(9);
move(s,ps,length(s));
showMessage(ps);
showMessage(s);
showMessage(inttostr(StrBufSize(ps)));
StrDispose(ps);
end;
这样报错。。。。showMessage（s）出错，这个函数到底怎么用的？