ADOStoredProc怎么得到反回值？

Question

存储过程：
CREATE procedure test
@tempinput int,
@tempoutput int output
as 
select @tempoutput=count(hgnum) from numcount where hgnum=@tempinput程序：
ADOStoredProc2.Parameters.Refresh();
ADOStoredProc2.Parameters.parambyname('@tempinput').value:=strtoint(edit1.text);
ADOStoredProc2.Prepared;
ADOStoredProc2.ExecProc;
R:=ADOStoredProc2.Parameters.parambyname('@tempoutput').value
if r<1 then
......
问一执行程序后，错误提示：存储过程test需要参数，@tempoutput但未提供？请帮我修改一下？thanks

Answer 1

在它的parameters属性里可以添加你的  出口和入口值，
楼上动态方法就是了

Answer 2

在它的parameters属性有@tempoutput呀？