Usando o componente gauge

Usando o componente gauge na execução da query

Procedure TForm1.Button1Click(Sender: TObject);
begin

Query1.Open;{ abre a table query que seja}
Gauge1.MaxValue:=query1.RecordCount; {diz que o valor max do gauge é o valor de regitrs a serem
processados pela na tabela}
Query1.First; {posiciona no inicio da tabela}
if not Query1.Eof then {enquanto a tabela não estiver, vai executar
o codigo abaixo }
repeat
{ seus comandos para a tabela }
Gauge1.Progress:=Gauge1.Progress + 1;
if Gauge1.Progress = Gauge1.MaxValue then
begin
showmessage('Processo Terminado!');
end;
Query1.Next { move para o próximo registro}
until Query1.Eof; {finaliza o programa ao final da tabela}
end;

end.