procedure AppendRecord(dbf, blank :integer);

AppendRecord appends a record to the end of a file. It uses information from internal memory.
If the second parameter 'blank' is equal to 1 then AppendRecord appends an empty record.

var dbf :integer; begin dbf := OpenBase( 'filename.dbf' ); if dbf <> 0 then begin ClearRecord(dbf); SetValue(dbf, 0, 'some string', 123.45); AppendRecord(dbf, 0); AppendRecord(dbf, 1); end; CloseBase(dbf); end; end.