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

Question

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