function FilterRecordCount(dataset : TDataset) : integer;begin try result := 0; dataset.disablecontrols; dataset.first; while not dataset.eof do begin result := result + 1; dataset.next end; finally dataset.enablecontrols; end;end;