Problemas con OnfilterRecord

[Besto]

Bueno la cosa sería algo así:

procedure TfrDatosApli.TbEquFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
Accept := true;
//pongo las condiciones para el filtro

if Accept then
NumRegistros := NumRegistros + 1;

//NumRegistros es la variable donde voy guardando los registros que cumplen la condición. La inicializo a cero antes de filtrar la tabla.

end;

Lo que necesito saber es cuantos registros cumplen la condición, si hay alguna otra forma que no consuma mucho tiempo tampoco me importa.