關于數據庫批量操作與progressbar的結合使用問題

在網上看到﹕將adoquery1的executeoption 設為[eoAsyncFetch]﹐然后在FetchProgress事件中寫。
但我試了總是不成功﹐該怎么實現﹖﹖﹖﹖﹖
注﹕窗體界面如下﹕
TForm1 = class(TForm)
    ProgressBar1: TProgressBar;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    openquery: TButton;