存储过程的问题，请高手帮忙！

Question

小弟写的存储过程如下：
use datamanagerif exists (select name from sysobjects where type='p' and name ='proc_occasional_enterprise')
drop procedure proc_occasional_enterprise
goCREATE PROCEDURE proc_occasional_enterprise as
insert into enterprise_1 
select *
from occasional_table where occasional_table.[name] 
in(select name from enterprise)delete occasional_table where exists (select * from occasional_table where occasional_table.[name] in(select name from enterprise))GO在delphi中的语句如下：
  dm1.ADOStoredProc1.Active := true;
  with dm1.ADOStoredProc1 do
  begin
    Close;
    ProcedureName := 'proc_occasional_enterprise;1';
    Refresh;
    ExecProc;
  end;
存储过程在sql查询分析其中通过
delphi程序运行时报错‘commandtext dose not return a result set’,请问各位大侠该怎么解决这个问题啊？

Answer 1

存储过程中加：select * from enterprise_1

Answer 2

//dm1.ADOStoredProc1.Active := true;
这一句是为何？

Answer 3

with dm1.adoquery1 do
begin
  
end;