Hola David:
1. No entiendo si "genSQL_Insert()" genera una cadena a la vez o el script completo de inserción.
2. Si quieres una barra de progreso yo utilizo en varias cosas los componentes JEDI y existe un componente llamado TJvProgressDialog que para esos menesteres funciona muy bien:
Código Delphi
[-]
jvProgressDialog.Show;
jvProgressDialog.Position := 30;
jvProgressDialog.Position := 100;
jvProgressDialog.Hide;
Lo anterior también puede ser en un bucle he ir actualizando Position en concordancia.
Saludos.