封装的DLL怎样接收中文

定义的方法如下：
procedure toprintchar(n1:integer; n2:PChar);stdcall;
var F:TEXTFILE;
begin
    ASSIGNFILE(F,'d:\test.txt');

    REWRITE(F);    WRITELN(F,n1 );
    WRITELN(F,n2 );    CLOSEFILE(F);
end;此方法给PB调用的，PB里定义：
PUBLIC SUBROUTINE toprintchar(Integer n1, string n2) LIBRARY "abc.dll";
PB调用：
toprintchar(24,'我的');integer n1能正常接收
pchar　n2接收是乱码。我知道这是一个比较古老的问题，但我没有能搜到解决方法，知道的朋友请指教指教，先谢谢了。