[ecfisa]

Hola connor.

Probá de este modo:

Código Delphi [-]
  Gauge_STATUSBAR.Progress := 0;
  Query1.First;
  while not (Query1.Eof) do
  begin
     Calcular_Valores
     Query1.Next;
     Gauge_STATUSBAR.Progress := Gauge_STATUSBAR.Progress + 1;
     Application.ProcessMessages;
  end;

Saludos.