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;