有关ADOStoredProc不能重复调用存储过程的问题？

Question

我的代码如下：
procedure TForm1.Button4Click(Sender: TObject);
begin
  with ADOStoredProc3 do
  begin
    Close;
    //给存储过程的参数赋值参数
    ProcedureName:= 'gene_day_dwqk';
    Parameters.AddParameter;
    //Parameters.Items
    Parameters.Items[0].DataType := ftDateTime;
    Parameters.Items[0].Name := '@l_date';
    Parameters.Items[0].Direction := pdInput;    Parameters.ParamByName('@l_date').Value := StrToDateTime(Edit1.Text);
    ExecProc;
  end;
end;
每次只能执行一边，当第二次执行到Parameters.Items[0].Name := '@l_date'时就包错，这是什么原因呢是不是变量名不能被重复使用啊，怎么解决呢，或是谁有
ADOStoredProc调用带参数的源码，给我看看啊，

Answer 1

在procedureName:='gene_day_dwqk'後面添加一句parameters.clear;