ibquery + gauge (progreso de una busqueda)
 

hola amigos quiero hacer una mejora a mi programa, para hcer las interactivo... aer si me pueden ayudar...

tnego un ibquery que busca dentro de una tabla, la cantidad de registro que puede encontrar varia desde 15.000 hasta 200.000.

a la vez que va recorriendo la busqueda, se va graficando en un Tchart lo buscando.

lo que quiero hacer es que un Tgauge me exprese que porcentaje lleva de dicha busqueda... se me ocurrio usar el siguiente codigo... claramente no me funciono, sino no estaria aqui escribiendoles....

Código Delphi [-]
BEGIN
IBQUERY1.SQL.CLEAR;
IBQUERY1.SQL.ADD('SELECT * FROM "1000"');
IBQUERY1.SQL.ADD('WHERE PRESION = 500');
IBQUERY1.Open;
IBQUERY1.LAST;
IBQUERY1.First;
x:=(IBQUERY1.RecordCount);
SERIES2.Clear;

for I := 1 to x do
BEGIN
hora:=IBquery1.FieldByName('BATCH').asSTRING;
if HORA = '' then HORA:='0';
temp:=IBquery1.FieldByName('temperatura').Asinteger;
series2.addxy(STRTOINT(HORA),TEMP ,'',clgreen);
SGAUGE1.Progress:=ROUND(I/x)*100;
IBQUERY1.Next;
end;
end;

en teoria va bien... una vez que termina aparece 100% en gauge, pero no se aprecia el avance mientras esta realizando la busqueda...

alguien tiene una mejor idea para realizar esto, o alguna forma de mejorar lo que ya tengo heho....

Estoy utilizando delphi 2006 conectado por los componentes Interbase a una Base de datos Firebird 2.0

Espero me puedan ayudar.... muchas gacias por su tiempo