dbexpress获取存储过程的返回值，解决方案

dbexpress获取存储过程的返回值，急急急！
使用DBExpress连接DB2数据库
然后调用存储过程
存储过程如下：
CREATE PROCEDURE proc_NewSave_Sys (v_uniqueguid_2 VARCHAR(36), 
                                v_uniqueid_3 VARCHAR(32), 
                                v_agent_4 VARCHAR(16), 
                                v_callid_5 VARCHAR(24) 
                        )
LANGUAGE SQL

BEGIN
    
    DECLARE SQLSTATE CHAR(5) DEFAULT '00000';
    
    DECLARE l_error CHAR(5) DEFAULT '00000';

    DECLARE RETURN_VALUE INTEGER;

    DECLARE v_ret INTEGER;
    
    DECLARE l_rowcount INTEGER;

    DECLARE temp_cursor CURSOR WITH HOLD WITH RETURN TO CLIENT 
         FOR SELECT lsh
             FROM t_sys
             WHERE uniqueguid = v_uniqueguid_2;
    
    DECLARE CONTINUE HANDLER FOR NOT FOUND
        
        SET l_error = '00000';
    
    DECLARE CONTINUE HANDLER FOR SQLEXCEPTION, SQLWARNING
        
        BEGIN
            
            SET l_error = SQLSTATE;
            
            IF SUBSTR(l_error, 1, 1) >= '5'
               AND SUBSTR(l_error, 1, 1) <= '9' THEN 
                
                RESIGNAL;
            
            END IF;
        
        END; 
    SET v_outvalue = -2;
    OPEN temp_cursor;
    SELECT COUNT(*)
    INTO l_rowcount
    FROM (SELECT lsh
          FROM t_sys
          WHERE uniqueguid = v_uniqueguid_2) temp_table;

    IF l_rowcount > 0 THEN 
        SET l_error = '00000';
        UPDATE t_sys SET
agent=v_agent_4,
callid=v_callid_5
WHERE
   uniqueguid = v_uniqueguid_2;
COMMIT;
      
      IF l_error != '00000' THEN 
         SET RETURN_VALUE = l_error;
         RETURN RETURN_VALUE ;
      ELSE
        SET RETURN_VALUE = 1;
        RETURN 1;
      END IF;
   ELSE
      SET l_error = '00000';
      INSERT INTO t_sys (uniqueguid,uniqueid,agent,callid) 
                      VALUES (v_uniqueguid_2,v_uniqueid_3,v_agent_4,v_callid_5);
      COMMIT;
      IF l_error != '00000' THEN 
         SET RETURN_VALUE = l_error;
         RETURN RETURN_VALUE ;
      ELSE
        SET RETURN_VALUE = 1;
        RETURN 1;
      END IF;

  END IF;
END!

在用TSQLStoredProc调用，调用如下
FStoredProc.Close;
FStoredProc.Params.Clear;
FStoredProc.StoredProcName:= 'PROC_NEWSAVE_SYS';
//FStoredProc.Params.CreateParam(ftInteger,'v_return',ptResult).AsInteger:= -1;
FStoredProc.Params.CreateParam(ftString,'v_uniqueguid_2',ptInput).AsString:= 'DVS+';
FStoredProc.Params.CreateParam(ftString,'V_uniqueid_3',ptInput).AsString:= guid;
FStoredProc.Params.CreateParam(ftString,'V_agent_4',ptInput).AsString:= '3001';
FStoredProc.Params.CreateParam(ftString,'V_callid_5',ptInput).AsString:= '';
FStoredProc.ExecProc;    
//V_RETURN:=FADOStoredProc.Params.ParamByName('V_RETURN').Value;

设置了ptResult参数后，会报错。
我记得用ADO的时候，可以这样用！怎么用DBExprss不行，是不是我的调用方式不对！
注意：不要叫我改存储过程，我知道用OUTPUT是参数，是可以做到一样的效果
         数据库 delphi?DB2 delphi???db2
[解决办法]
同样使用过dbExpress控件 出这样的问题 建议改用ado控件
[解决办法]
参考一下这个。连接FB的存储过程。

with SQLStoredProc do
begin
try
SQLConnection := BuildConnection;
ParamCheck := True;
StoredProcName := 'BUILD_ADD';
if not BuildConnection.Connected then
BuildConnection.Open;
ParamByName('BUILD_NO').AsInteger := build_no;
ParamByName('FLOOR_COUNT').AsInteger := floor_count;
ParamByName('FLOOR_FAMILY').AsInteger := floor_family;
ParamByName('GATE_COUNT').AsInteger := gate_count;
Prepared := True;
ExecProc;
if ParamByName('IS_ERROR').AsString = 'Y' then
begin
Err_Msg := UTF8ToString(ParamByName('ERR_MSG').AsWideString);
Result := True;
end
else
begin
Result := False;
end;
except
raise Exception.Create('读取数据出现错误，请通知管理员！');
end;
end;