Barra de progreso dentro de un TpFIBQuery

[Gregorio Cíber]

Hola amigos.
Hay alguna manera de poner una barra de progreso dentro de query que borra registros de una tabla. El query sería algo así:

Código Delphi [-]
    with qry_BorrarHastaFecha do
    begin
      Close;
      sql.Clear;
      sql.Add('DELETE FROM TABLA');
      sql.Add('WHERE (FECHA <= :HASTA_FECHA);');
      ParamByName('HASTA_FECHA').AsDate := edt_HastaFecha.Date;
      ExecQuery;
    end;

El texto SQL iría dentro del componente. Lo pongo así para que se pueda ver lo que hace.
La idea es que aparezca una barra de progreso mientras se están borrando los registros, si es que eso es posible.

Gracias de antemano y Felices Fiestas a todos.