Activex dll 返回值问题（急...）! (50分)

在Activex中执行方法，出现错误 out of memory


Activex中的方法：

function TGet1.Test: WideString;
begin
try
Result:='test';
except
on E: Exception do ShowMessage(E.Message);
end;
end;