procedure DeleteRecord(dbf, r :integer);

DeleteRecord physically deletes the specified record from a dbf file.
The function does nothing if a table is sorted or filtered.

var
  dbf :integer;
begin
  dbf := OpenBase( 'filename.dbf' );
  if dbf <> 0 then
  begin
    DeleteRecord(dbf, 1);
    CloseBase(dbf);
  end;
end.