Tiempo de espera.-

[[duilioisola]]

Podrías poner un TTimer y una variable global que tenga la hora en que se inició el select.

Poner el Timer a 1 segundo.

En el procedimiento que ejecuta select, activar el timer.

Código Delphi [-]
[...]
Tiempo := Now;
Timer1.Enabled := True;
Table.Open;
[...]

OnTimer poner algo asi:

Código Delphi [-]
begin
   ProgressBar.StepIt;
  Application.ProcessMessage;
end;

o

Código Delphi [-]
begin
   LabelTiempo.Caption := 'Tiempo transcurrido: '+DateTimeToStr(Now-Tiempo);
  Application.ProcessMessage;
end;