Gauge na execução de uma SQLQuery

Opa, primeiramente gostaria de comprimentar todo, eu tenho que criar uma barra que indica o andamento de uma query, caso eu tenha muitos dados em meu banco de dados( estou utilizando dbexpress, firebird no Delphi 2006 ), estou utilizando sqlquery( clone da query ), um select, se alguém puder me dar uma dica, eu agradeceria, obrigado a todos!