[Casimiro Notevi]

No está bloqueado (colgado), sino en un bucle sin fin.

Código Delphi [-]
while not table1.eof do
begin
  // aquí va la comparación y ahora -->
  table1.Next;   //  <--  pasamos al siguiente registro
end;