delphi能异步执行存储过程吗？

如题？
网上找到都是用DATASET执行select * from a 这种查询表
dbgrid连接datasource连接adodataset连接adoconnection 
adodataset 设置为eoAsyncFetchNonBlocking
执行都很顺利那换成exec b  执行存储过程，
没有异步的效果，按钮点下去后，窗口其他东西都停住，等存储过程执行完才能动
第二次执行会跳出ole error 80040200的错误请问该如何设置
另外如何取到进度？