function IsDeleted(dbf, r :integer): integer;

IsDeleted returns a non-zero value (1) if the specified record is marked as deleted.
You do not have to read a record with ReadRecord before using IsDeleted.

var dbf :integer; r, x :integer; begin dbf := OpenBase( 'filename.dbf' ); if dbf <> 0 then begin x := 0; for r := 0 to RecCount(dbf)-1 do begin if IsDeleted(dbf, r) then x := x + 1; end; showmessage( inttostr(x) + ' deleted records.' ); CloseBase(dbf); end; end.