Mostrar ProgressBar durante un Query
 

buenas amigos del foro quisiera tocar este tema que se lo han hecho muchas veces pero consegui buscando en el foro este codigo es como mostrar un progressbar durante un query

Código SQL [-]
with ADOQuery1 do
begin
SQL.Clear;
SQL.Add('select * from Tabla1');
ExecuteOptions := [eoAsyncFetch];
Open;
end;

En el Evento OnFetchProgress del ADOQuery:

ProgressBar1.Max := MaxProgress;
ProgressBar1.Position := Progress;
Application.ProcessMessages;

trate de usarlo pero arroja el siguiente error si alguien sabe como corregirlo les sabria agradecer lo necesito usar
gracias de antemano

Disculpen este es el Error que muestra

a Connection component is requiered for async ExecuteOptions