[Casimiro Noteví]

¿Pegado?
¿Eso es bloqueado?, seguramente entra en un bucle infinito porque nunca se cumple que:

Código Delphi [-]
...until x1=b;