[ecfisa]

Hola adsl65.

Otra forma puede ser:

Código Delphi [-]
procedure TFPantallaExis.bIniciarClickClick(Sender: TObject);
{$J+}
const
  Loop : Boolean = True;
{$J-}
begin
  with QExistencias do
  begin
    First;
    while Loop do
    begin
      Application.ProcessMessages;
      if GetKeyState(VK_ESCAPE) and 128 = 0 then // tecla Esc no presionada
      begin
        Next;              // siguiente
        if Eof then First; // si alcanzó el fin volver al primero
      end
      else                 // se presionó tecla Esc
      begin
        Close;             // QExistencias
        Loop := False;     // Terminar
      end;
    end;
  end;
  Close; //FPantallaExis
end;

Saludos.