[keyboy]

Empezado por AGAG4

Haz probado usando Abort ó Exit ?????

Que tengas buen día.

Ni abort ni exit sirven en este caso.

abort lanza una excepción silenciosa (sin mensaje) que al igual que
cualquier otra excepción saltará la ejecución de la aplicación hasta encontrar
un bloque try-except.

exit ocasiona que el flujo de la aplicación salga del procedimiento
desde donde se llama.

Así que, en ambos casos, se sale bastante más allá del ciclo while.

Quizá estabas más bien pensando en break que, en efecto, podría
usarse en este caso:

var
  Encontrado: Boolean;

begin
  Encontrado := false;
  while not Encontrado do
  begin
    Encontrado := BuscarUsuario;
    if Encontrado then
      break;
  end;
end;

bye