关于用SQLStoredProc1执行后取得返回值的总题

我在SQL中有一存储过程
我只写了如下
:CREATE PROCEDURE pro_insert_gmccvip
@update_YN int  output
AS
begin tran    /* 开始一个事务 */set @update_YN = 2
commit tran
GO
在delphi的代码中我增加了一个月后SQLStoredProc1,指定了StoredProcname,
也在params中增加了一值,并执行SQLStoredProc1.ExecProc出错,
提示"list index out of bounds(0)"
请哪位帮帮忙解决这问题,谢谢!