InstallShield 调用Delphi建立的程序出错！！请问为什么？(100分)

//--------------InstallShield中的程序是这样写的：-----------------------------
prototype BOOL InstallDatabase.MyTestBig( BYREF STRING );
//动态链接库的使用
UseDLL( TARGETDIR ^ "InstallDatabase.dll" );

szBigStatue = "这是传入的字符串！！";
bRunDLL = MyTestBig(szBigStatue);
//运行DLL程序
SdFinishEx(szTitle, szBigStatue, szMsg2, szOption1, szOption2, bOpt1, bOpt2);

UnUseDLL( TARGETDIR ^ "InstallDatabase.dll" );

//-----------Delphi建立的DLL程序------------------------------
function MyTestBig(BigState: PCHAR):Boolean;
var
sTmp:String;
begin
ShowMessage('编译d');
//这句的执行结果已经正常
sTmp:='b:'+String(BigState);
//到这句就出错了！！请问传入的字符串怎么操作？
ShowMessage(sTmp);
BigState:='这是输出的字符串！！';
Result:=False;
end;

exports MyTestBig;