Aplicación se queda congelada !!!!

[david_uh]

hola gracias por responder, la función genSQL_Insert() lo que hace es leer una tabla dbf y mediante un bucle recorro sus registrs y construlo una cadena con una instriccion insert una cadena tal que. Insert into tabla (nombre, direccion) values ('jose','la predera'), etc, osea recojo los datos de la tabla, eso es todo, ahora, ahora lo que yo deseo es que cuando envio esa cadena y ejecuto la consulta de inserción en el servidor remoto ahi la aplicacion se me congela justo en estas lineas

Código Delphi [-]
ZSQLProcessor1.Script.Add('truncate table colegiados;');
  ZSQLProcessor1.Script.Add(genSQL_Insert());
  ZSQLProcessor1.Execute;

hay que esperar como 5 segundos y es aqui donde quisiera aparezca una barra de progreso pero no se como hacerlo ya que no hay bucle ni nada es solo esperar a que Execute termine.

saludos

David