ADOQuery查询进度

我一直没有做得满意！请教大家是怎么做的 比如
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from database');
open;
end;
这个过程怎么用进度条显示 ？
用ADOConnection连接数库
设置
adoquery1.executeoptions.eoasyncfetch := True;
adoquery1.CursorLocation :=clUserClient;
这样就可以在OnFetchProgress事件中取得以读入的记录条数了，用进度条显示就可以了