怎样在Adotable打开数据表时显示一个进度解决方法

怎样在Adotable打开数据表时显示一个进度
我在程序运行期间通过设置ADOTABLE的active属性为true来打开数据表时，因为数据库有照片要花很长的时候才能把表打开.我想设计一个进度条来显示打开数据表的进度,应该怎样办啊！！

[解决办法]
把ADOQuery的ExcuteOption属性设为 eoAsyncFetch, 再在FetchProgress 中写代码

procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
Caption := 'Percent complete: ' +
IntToStr(Trunc(Progress / MaxProgress * 100)) + '%';
Application.ProcessMessages;
end;