我的异步执行怎么不执行呀？？？？？？？？？？？？？？？？？？？？？？

Question

照着李维的书上做的！！可是ADODataSet1FetchProgress和ADODataSet1FetchComplete根本就没有执行呀！！！procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet;
  Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
  ShowMessage('hello');
  ProgressBar1.Position := Progress;
end；procedure TForm1.ADODataSet1FetchComplete(DataSet: TCustomADODataSet;
  const Error: Error; var EventStatus: TEventStatus);
begin
  le := GetTickCount;
  ShowMessage('一共花了'+FloatToStr((le - ls)/1000.0) + '秒');
end;