在ActiveX中使用WideString与String时出现的问题

[sam51]

在ActiveXfrom中定义了一个函数：
function aa(instr:widestring):widestring;
var str:string;
begin
...
str:='111';
Result:=str;
end;

执行到“str:='111'”都正常，下一步当返回结果结束后，浏览器会提示非法操作，然后浏览器就关闭了。
如果在“Result:=str”后面加上messagebox，将str显示一下的话就不会提示非法操作了，且可以正常运行，这是为何？

[INeedCa]

Result := WideString(str);