function zap: Boolean;

The function zap() removes all records from a dbf file.
This operation cannot be undone.

begin
    // your code
    writeln( 'Reccount = ' + intToStr( dbf.recCount ) );
    dbf.zap;
    writeln( 'Reccount = ' + intToStr( dbf.recCount ) );
    // your code
end;