function pack: Boolean;

The function pack() removes records marked as deleted from a dbf file. It also removes not used blocks from memo file.
This operation cannot be undone.

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