如何使用存储过程求解啊.(0分)

procedure TForm1.FormCreate(Sender: TObject);
begin
ado.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tvb;Data Source=YY-510PYBFT7A2S/YY';
ado.ProcedureName:='CancelInRec;1';
//ado.Prepared:=true;
ado.Parameters[1].DataType :=ftinteger;
ado.Parameters[1].Direction :=pdoutput;
ado.Parameters[1].Value:=1;
data.DataSet:=ado;
dbgrid1.DataSource:=data;
//ado.ExecProc;
adpen;

{上面的使用连接存储过程语句,在运行的时候记录为何没有
显示在DBGRID里,如何去掉注释的ADO.OPEN,运行时就出现
COMMANDTEXT DOES NOT RETURN A RESULT SET 的错误,请教如何
修改. 我的过程代码如下: }
alter procedure CancelInRec
@Code int
as
insert TbIn (编号,日期,产品号,产品名称,单价,数量,总额)
select 编号+'_',日期,产品号,产品名称,单价,数量*(-1),总额*(-1)
from TbIn
where 编号=@Code
--