Ab Delphi 2 ist RecordCount auf dBase Dateien scheinbar langsamer geworden. Hier ist eine schnellere Variante. Sie zählt aber auch gefilterte bzw. gelöschte Datensätze mit (wie Delphi 1).
function RecordCount( db :TDBDataSet) :longInt;
begin
Check(dbiGetRecordCount(db.Handle,Result));
end;