至今还没有看到解决的有关问题 -存储过程返回值

至今还没有看到解决的问题 -----存储过程返回值
var   mynode:ttreenode;
        mylabel:tlabel;
        sp:tadostoredproc;
        sp_rt,sp_prm,sp_prm_out:tparameter;
begin
    sp:=tadostoredproc.Create(self);
              sp.Connection:=dm_mis.miscon;
              sp.ProcedureName:= 'pr_delclass ';
              sp_rt:=sp.Parameters.CreateParameter( '@RETURN_VALUE ',ftInteger,pdReturnValue,4,0);
              sp_prm:=sp.Parameters.CreateParameter( '@iid ',   ftString,pdinput,10,iid);
             
              sp_prm_out:=sp.Parameters.CreateParameter( '@rst ',   ftString,pdInputOutput,10, '9999 ');
             
              sp.Prepared;
              sp.ExecProc;
              showmessage(sp_prm_out.Value);//错误提示sp_prm_out为空值

        end;


[解决办法]
--用这个看看
with self.ADOCommand1 do
begin
Connection:=Adoconnection1;
CommandType:=cmdStoredProc;
CommandText:= 'pr_delclass ';
Parameters.CreateParameter( '@iid ',ftString,pdInput,10, '1111 ');
Parameters.CreateParameter( '@rst ',ftString,pdOutput,10, '999 ');
Execute;
showmessage( Parameters[1].Value );
end;