Mostrar en Progress Bar un proceso

[matti]

El SQL de mi IBQuery
"SELECT * FROM CALCULOCONTRATADOS(:TIPOFUNC, :FECHAINI, :FECHAFIN)
ORDER BY PERSONA"

Donde CALCULOCONTRATADOS es el procedimiento de Firebird y me retorna 10
campos y eso es lo que hace muchos calculos y quiero que me muestre en una barra de progreso mientras dura el proceso.

Con este codigo le envio los paramtros
Query.close;
Query.Params.Items[0].AsString := Edit1.Text ;
Query.Params.Items[1].AsDate := Fecha1.Date;
Query.Params.Items[2].AsDate := Fecha2.Date ;
Query.open;

en donde tengo que meter el thread para medir el Tiempo?

Gracias a todos por las respuestas

[[mightydragonlor]]

el thread debe iniciar justo antes del query.open y finalizar justo después, pero eso solo durará durante se ejecuta el sp, si por ejemplo haces ponerlos antes del sps pues ponlo justo donde inicia y finaliza o puedes meterlo todo en un thread si quieres.