Consulta SQL - Alguem pode me dar uma dica

Bom dia Amigos, meu nome e Frank e gostaria muito de sua valiosa ajuda, pois estou tentando fazer uma consulta, 01-IBQUERY,01-BUTON, e 01- GAUGE, sendo que quando eu clicar no BUTOM
como demostra abaixo, ele abre a IBQUERY, e vai dando um RecordCount, na tabela, sendo a ele vai contando
a quantidade de registros, e no GAUGE vai mostrando a porcentagem a medida que e feita a contagem da tabela:
RESUMO:
POIS NAO CONSIGO COLOCAR O IBQUERY1.OPEN NA LINHA CORRETA DA INSTRUÇÃO
POIS QUANDO ABRO A TABELA ELE PREENCHE LOGO TODO O GAUGE E FICA CONTANDO O TOTAL DE REGISTROS,
SENDO QUE NA VERDADE E PARA IR CONTANDO OS REGISTRO E IR MOSTRANDO A PORCENTAGEM NO PREENCHIMENTO DO GAUGE.

BOM AMIGO, SE VC PODER ME AJUDAR EU FICARIA MUITO GRATO,
POIS SOU NOVATO, E GOSTARIA MUITO DE VALIOSA AJUDA.

UM FORTE ABRAÇO

Atenciosamente,

Frank

Fico no aguardo de uma resposta positiva

Ate +++

espero resposta


Veja a unit que fiz abaixo mas nao esta dando certo


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, Gauges, IBCustomDataSet, IBQuery,
IBDatabase;
type
TSeuFormulario = class(TForm)
Gauge1: TGauge;
Button1: TButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button2: TButton;
IBDatabase1: TIBDatabase;
IBTransaction1: TIBTransaction;
IBQuery1: TIBQuery;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SeuFormulario: TSeuFormulario;
implementation
{$R *.DFM}
procedure TSeuFormulario.Button1Click(Sender: TObject);
begin
SeuFormulario.Gauge1.Progress := 0;
SeuFormulario.Gauge1.Visible := True;
SeuFormulario.Gauge1.MaxValue := SeuFormulario.IbQuery1.RecordCount;
SeuFormulario.IbQuery1.First;
while not SeuFormulario.IbQuery1.eof do
IbQuery1.open;
begin
SeuFormulario.Gauge1.Progress := SeuFormulario.Gauge1.Progress + 1;
SeuFormulario.IbQuery1.Next;
end;
SeuFormulario.Gauge1.Visible := False;
end;
End.