Si esto te funciona tomate un vinito y brinda por mi. Jaja.
Código Delphi
[-]
....
uses BDE;
....
procedure ..............
var i : integer;
begin
Table1.Filtered := true;
Check(DbiGetExactRecordCount(Table1.Handle, i));
ShowMessage(inttostr(i));
end;
Saludos,