hola chicos..
Amigo porque usas ADOTABLE eso es una pela cada componente ADOTABLE , TABLE etc. abren el millon de registro que tu tienes en la tabla. usa AdoQuery
Nunca eh trabajado en AS400 pero si tu puedes usar ADOTABLE cambialo por AdoQuery, a otra cosas tus tablas deben de tener indices para que tus consultas sea mas rapida. Olvidate de la se Sentencia Locate esto realiza una busqueda secuencial.
Suerte