Delphi TADOStoredProc [1] 的使用

DataSource1.DataSet:=ADOStoredProc1;
with ADOStoredProc1 do
begin 
  Close;
  ProcedureName:='存储过程名称';
  Parameters.Refresh;
  Parameters[1].Value:=传值1;
  Parameters[2].Value:=传值2;
  Open;
end;　

DataSource1.DataSet:=ADOStoredProc1;
with ADOStoredProc1 do
begin 
  Close;
  ProcedureName:='存储过程名称';
  Parameters.Refresh;
  Parameters.ParamByName('@a1').Value:=传值1;
  Parameters.ParamByName('@a2').Value:=传值2;
  Open;
end;　

with ADOStoredProc1 do
begin //取存储过程返回值
  Close;
  ProcedureName:='带返回值的存储过程';
  Parameters.Refresh;
  Parameters.ParamByName('@a1').Value:=传值1;
  Parameters.ParamByName('@fanhui').Value:=null;
  ExecProc;
  Edit1.Text:=Parameters.ParamByName('@fanhui').Value;
end;

var 
    i:integer;
begin 
  DataSource1.DataSet:=ADODataSet1;
  with ADOStoredProc1 do 
  begin
    Close;
    ProcedureName:='存储过程';
    Open;
    ADODataSet1.Recordset:=ADOStoredProc1.Recordset;
    ADODataSet1.Recordset:=ADOStoredProc1.NextRecordset(i);  //下一个结果集
  end;
end;