Gracias Delphius, problema resuelto, y exactamente era que entraba a un bucle infinito pk no tenia la linea .Next para pasar a los siguientes registros y entonces ponia la condicion while ADOTable1.EOF<>True
.
Y tambien gracias por el comentario Casimiro Notevi, lo considerare.
Saludos