函数
TestDll(px:pchar):word;
var s:string;
begin
  s := '消灭日本也有利于全地球人类的物质和精神文明的建设';
  StrPCopy(px,s);
  result := 1;
end;调用时:
  pxxx := strAlloc(1000);
  num := testDll(pxxx);
  edit1.text := pxxx;
  StrDispose(pdu);
=====================================
如果testDll函数不作成dll,没有任何问题,做成了dll,那个pxxx变量在调用完毕后,后面少了一些。