我之前也踩过类似的坑，动态创建ADO存储过程组件却触发重复执行，大概率是这几个原因，咱们一步步排查解决：

最常见的诱因：重复调用执行方法 #

先检查你的代码是不是不小心触发了两次执行逻辑——比如同时调用了ExecProc和Open，或是在循环、条件分支里重复写了执行语句。举个典型的错误写法：

mSp.ExecProc;
// 不小心在某个判断里又调用了一次
if someCondition then
  mSp.ExecProc;

记住：无返回结果的存储过程只用ExecProc，有结果集的用Open，两者不要同时调用。

排查参数设置的隐性触发 #

有时候设置参数时操作不当，也会间接触发执行。比如不要在参数设置后意外赋值mSp.Active := True（这等价于调用Open）。给你一个标准的正确流程示例：

var
  mSp: TADOStoredProc;
begin
  mSp := TADOStoredProc.Create(nil);
  try
    mSp.Connection := conn;
    mSp.ProcedureName := spname;
    mSp.CommandTimeout := 600;
    // 按存储过程定义设置参数
    mSp.Parameters.ParamByName('@UserID').Value := 1001;
    mSp.Parameters.ParamByName('@UserName').Value := 'TestUser';
    // 只调用一次执行
    mSp.ExecProc;
  finally
    mSp.Free;
  end;
end;

检查Prepared属性的影响 #

如果你手动设置了mSp.Prepared := True，要确保不会在Prepare后重复触发执行。除非你需要多次调用同一个存储过程，否则没必要手动Prepare（组件会自动处理）。如果确实需要Prepare，按这个流程来：

mSp.Prepared := True;
try
  mSp.ExecProc;
finally
  mSp.Prepared := False;
end;

排除事件绑定的循环触发 #

检查有没有给TAdoStoredProc绑定AfterExecute这类事件，会不会在事件处理函数里又调用了执行方法，形成循环触发。动态创建组件时，确认没有通过代码绑定这类可能引发重复的事件。

连接对象的状态验证 #

确保你的conn连接对象处于正常状态，不要在执行存储过程前重复打开连接（虽然这一般不会直接导致执行两次，但可能引发其他异常间接影响执行逻辑）。

最后一定要用try...finally块管理组件生命周期，既避免内存泄漏，也能确保执行逻辑在可控范围内完成，不会因异常导致重复执行。

内容的提问来源于stack exchange，提问作者Kasparov