storedproc控件

Question

在服务器上有一个存储过程，有一个输入函数，无输出。我想按纽调用，但有错误，代码如下
procedure TFmMakeCard_LogOut.Button1Click(Sender: TObject);
var
p1 :tparam;
params : Tparams;
begin
     with storedproc1 do begin
     storedproc1.DatabaseName:=ldatabasename;
    storedproc1.storedprocname:='dt_Srd_logout' ;
    p1 := Tparam.Create(params,ptInput);
     try
     params[0].Name:='card';
     Parambyname('card').AsInteger:=1001;
     storedproc1.Prepare;
     storedproc1.ExecProc;
     storedproc1.UnPrepare;
     finally
      p1.free;
     end;
     end;
end;

Answer 1

把
var
p1 :tparam;
params : Tparams;
中的params去掉
看看

Answer 2

提示：
storedproc1:NO parameter type for parameter 'card';