Como usar Gauge com uma query

tenho um mesa de teste sql e queria saber como usar um gauge ao abrir uma dbf. uso o codigo da seguinte maneira quando mando executar ao sql.

procedure TFrmSql.SpeedButton1Click(Sender: TObject);
begin

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(memo1.Text);
try
Query1.Open;
gauge1.MaxValue:=Query1.RecordCount;
Gauge1.Progress:=Query1.RecordCount;
except
ShowMessage(´O código ´ + ´´´ + Memo1.Text + ´´´ + ´ está incorreto, favor redigitar o código´);
memo1.Clear;
end;

end;


1) Como fazer com que a gauge acompanhe o processo da abertura do banco de dados?

2) Como zerar a gauge?