Progress bar con query

[ciudad54]

He tratado de utilizar el evento FetchProgress pero no me funciona...

Algun ejemplo en concreto que puedan mostrar?

[ciudad54]

Código Delphi [-]
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;