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;