[Cañones]

Usa las etiquetas para que sea más fácil de comprender el código.

Código Delphi [-]
procedure TFPantallaExis.bIniciarClick(Sender: TObject);
var s:String;
begin
QExistencias.Close;
QExistencias.Open;

s := 'S';
while s = 'S' do begin
QExistencias.First;
while not(QExistencias.Eof) do begin
// CREO QUE ESTO AYUDARÍA
Application.ProcessMessages;
//
QExistencias.Next;

rutinas.Pausa(1);
end;

QExistencias.Requery;
end;
end;

Con lo que te indiqué en el post anterior más la modificación debería andar.