Problemas com o componente TGauge

Tenho um procedure que dispara uma atualização no BD, e no laco de atualizacao coloquei uma Gauge, para mostrar uma tela mais elegante para o usuario, o componente roda, mas termina antes de executar a atualizacao o banco o que estou fazendo de errado ?

for i := 1 to 1000 do // para fazer teste apenas com 10 (dez) itens
begin
with sp_Importa_Dados do // componente p/ executar a procedure
begin
Close ;
ProcedureName := ´sp_atualiza_ProdutoUSI;1´ ;
Parameters.ParamByName(´@E_CODPRO´).Value := tblProdsE_CODPRO.Value ;
Parameters.ParamByName(´@E_DESPRO´).Value := tblProdsE_DESPRO.Value ;
ExecProc ;
end;
tblProds.Next ;
if Gauge1.MinValue < Gauge1.MaxValue then
Gauge1.Progress := Gauge1.Progress + i ;
end;
except
ShowMessage(´Confirma os parametros da Tabela !!!´);
end; // except
finally
Cursor := crDefault ;
end ; // try